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Foreword 


This manual assists the 8086 assembly tanquade oroarammer 
working in a C?/M-86 ^" environment. It assumes vou are familiar 
with the CP/M-86 implementation of CP/M and have read the following 
Digital Research publications: 


e CP/M 2 Documentation 
e CP/M-86 Svstem Guide 


The reader should also be familiar with the 8086 assemblv 
language instruction set, which is defined in Intel's 8086 Family 
User^s Manual. 


The first section of this manual discusses ASM-86 operation 
and the vario assembler options which mav be enabled when 
invoking ASM-86^'". One of these options controls the hexadecimal 
output format.  ASM-86 can denerate 3086 machine code in either 
Intel or Digital Research format. These two hexadecimal formats 
are described in Appendix A. 


The second section discusses the elements of ASM-86 assembly 
language. It defines ASM-86^s character set, constants, variab’es, 
identifiers, operators, expressions, and statements. 


The third section discusses the ASM-86 directives, which 
oerform housekeeping functions such as requestina conditional 
assembly, including multiple source files, and controltina the 
Format of the listing printout. 


The fourth section is a concise summary of the 8086 
instruction mnemonics accepted bv ASM=86. The mnemonics used Dv 
-he Digital Research assembler are the same as those used bv the 
Intel assembler except for four instructions: the intra-seament 
short jump, and inter-seqment jump, return and call instructions. 
These differences are summarized in Appendix B. 


The fifth section of this manual discusses the code-macro 
facilities of ASM-86. Code-macro definition, specifiers and 
modifiers as well as nine special code-macro directives are 
discussed. This information is also summarized in Apvendix H. 


The sixth section discusses the DDT-8$ oroqram, which allows 
-he user to test and debug orograms interactively in the C?/M-86 
enviornment. Section 6 includes a DOT-86 sample Aebugging session. 
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Section 1 
Introduction 


1.1 Assembler Operation 


ASM-86 processes an 8086 assembly language source file in three 
passes and produces three output files, including an 3086 machine 
language file in hexadecimal format. This object file may be in 
either Intel or Digital Research hex format, wnich are described in 
Apoendix C. ASM-86 is shipped in two forms: an 8086 cross- 
assembler designed to run under CP/M on an Intel 8080 or Zilog 2-80 
based system, and a 8086 assembler designed to run under CP/M-86 on 
an Intel 8086 or 8088 based system. ASM-86 typically produces three 
output files from one input file as shown in Figure l-1, below. 


LIST PILE 


SOURCE ASM-86 | "HEX FILE | 


ee, Soe dl 
SYMBOL FILE 


xj 


¿fila name».A86 - contains source 

¿fila name».LST - contains Listing 

efile name».H86 - contains assembled program in 
hexadecimal format 

¿file name».SYM - contains all user-defined symbols 


Figure 1-1. ASM-86 Source and Object Files 


Figure l-l also lists ASM-86 filename extensions. ASM-86 
accepts a source file with any three letter extension, but if tne 
extension is omitted from the invoking command, it Looks for tne 
specified filename with tne axtension .A86 in the directory. lr no 
filename is specified and the file has an extension other than .A86 
or has no extension at all, ASM-86 returns an error message. 


mhe other extensions listed in Figure 1-1 identify ASM-39 
cutout files. The .LST file contains ehe assembly language listina 
with any error messages. The .H86 file contains “ne machine 


'anquagqe program in either Digital Research or Intel hexadecimal 
Format. The .SYM file lists any user-defined symools. 
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.Invoke ASM-86 by entering. a command of the following form: 
ASM86 <source filename» [ S <optional parameters» | 


Section 1.2 explains the optional parameters. Specify the source 
File in the following form: 


[«optional drive»:l«filename»[.«optional extension»| 
where 
«optional drive» is a valid drive letter specifving 
the source filas location. Not 
needed if source is on current 
— - drive. : | : 


«filename» is a valid CP/M filename of l to 8 
characters. | 


«optional extension» is a valid file extension of l to 3 
characters, usually .A86. 
Some examples of valid ASM-86 commands are: 
A>ASM86 B:BI0S38 
A>ASM86 BIOS88.ASM SFI AA AB PB SB 


A>ASM86 D: TEST 


Once invoked, ASM-86 responds with the message: 
C9/M 8086 ASSEMBLER VER X.X 
where x.x is the ASM-86 version number. ASM-86 then attempts to 


open the source file. If the file does not exist on the designated 
ive, or does not have the correct extension as described above, 


NO FILE 


j 
ib 
cr 


If an invalid parameter is given in the optional parameter li 
ASM-36 displays the message: 


PARAMETER ERROR 


After opening the source, the assembler creates the output 
files. Usually these are placed on the current disk drive, Sut Lev 
mav be redirected by ootional parameters, or Dy a dri 
specification in the the source file name. In the latter case, AS 
86 directs the output files to the drive specified in the source 
File name. 


(D 
Uu 
1D 
fu 
UL 
() 

J 
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During assembly, ASM-86 aborts if an error condition such as 
disk full or symbol tab!e overflow is detected. When ASM-86 detects 
an error in the source file, it olaces an error message line in the 
listing file in front. of the line containing the error. Each error 
message has a number and gives a brief explanation of the error. 
Appendix H lists ASM-86 error messages. When the assembly is 
complete, ASM-86 displays the message: 


END OF ASSEMBLY. NUMBER OF ERRORS: n 


1.2 Optional Run-time Parameters 


The dollar-sign character, $, flaas an optional string of run- 
time parameters. A parameter is a single letter followed by a 
single letter device name specification. The parameters are shown 
in Table 1-1, below. 


fable l-l. Run-time Parameter Summary 


| 
Parameter To Specify | Valid Arguments 


A source file device a Be Ge ave? 

B hex outnut file device A beaux BR y Oe 

2 list file device aa Ceo Ar lg d | 
S symbol file device > dues “ey. Ar Yg ub 

E format of hex output file i | 





All parameters are ootional, and can de entered in the command 
line in any order. Enter the dollar sign only once at the beginnine 
Of the parameter string. Spaces may separate parameters, out are 
not required. No space is vermitted, however, between a parameter 
and its device name. 


A device name must follow parameters A, f, 2 and S. The 
devices are labeled: 


ey B, => * a 6 2 SL xX, or Z 
Device names A through P respectively soecitv disk drives à 
through P. X specifies the user console (CON:), Y svecifies the 
line printer (LST:), and 2 suppresses output (NUL:). 
If output is directed ro the console, it mav be temporarily 


ar 
stopped at any time by typina a control-s. Restart the output ov 
*veing a second control-S or any other character. 


Ail Information Presented Here is Proorietary to Digital Research 


- 


CP /M-86 Programmer”s Guide 1.2 Optional Run-time Parameters 


The F parameter requires either an I or a D argument. When I 


is specified, ASM-86 produces an object file in Intel hex format. A. . 


D argument requests Digital Research hex. format. Appendix C 
discusses these formats in detail. If the F parameter is not 
entered in the command line, ASM-B6 produces icm Research hex 
format. 


Table 1-2.  Run-time Parameter Examples 


Command Line Result 
ASM86 IO Assemble file IO.A86, produce IO.HEX, 
| IO.LST and IO.SYM, all on the default 
drive. 
ASM86 IO.ASM $ AD SZ Assemble file IO.ASM on device D, 


produce IO.LST and IO.HEX on the defaul. 
device, suppress symbol file. 


ASM86 IO S PY SX Assemble file IO.AÀ86, produce IO.HEX, 
route listing directly to printer, 
output symbols on console 

ASM86 IO S FD Produce Digital Research hex format. 


ASM86 IO S FI Produce Intel hex format. 


1.3 Aborting ASM-86 

You may abort ASM-86 execution at any time 5y hitting anv kev 
on the console Keyboard. “hen a key is pressed, ASM-86 responds 
with the cuestion: 


USER BREAK. OR(Y/N)? 


A Y response aborts the assembly and returns to the overating 
system. An N response continues tne assembly. 
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Section 2 
Elements of ASM-86 Assembly Language 


2.1 ASM-86 Character Set 


ASM-86 recognizes a subset of the ASCII character set. The 
valid characters are the alohanumerics, soecial characters, and non- 
orinting characters shown below: 


REDEE ATRAE MANO O OR a Y VWXYZ 
abecedeftgqghijykimnovgrstuvyw Xv o 
012345 678 9 

+ =X fz (} CJ) 3 7. 15 : 85 


space, tab, carriage-return, and line-feed 


nhower-case letters are treated as upper-case except within 
Strings. Only alohanumerics, special characters, and spaces may 
appear within a string. 


2.2 Tokens and Separators 


A token is the smallest meaningful unit of an ASM-86 source 
orogram, much as a word is the smallest meaningful unit of an 
English composition. Adjacent tokens are commonly separated by a 
blank character or svoace. Any sequence of soaces may appear 
wherever a single space is allowed. ASM-86 recognizes horizontal 
taps as separators and interorets them as spaces. Tabs are exvanded 
to spaces in the list file. The tab stops are at each eighth 
column 


2.3 Delimiters 


0) 


elimiters mark the end of a token and add special meaning to 
the instruction, as opposed to separators, which merely mark the end 
of a token. When a delimiter is Dresent, separators need not oe 
used. However, separators after delimiters can make vour oroqram 
easier to read. 


Table 2-1 describes ASM-86 separators and delimiters. ‘Some 
1 


delimiters are also operators and are explained tn greater derail in 
Section 2.95. . 
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Table 2-1. Separators and Delimiters 


20H 


09H 


CR 


=» 


i 


T 


space 


tab 


carriage return 


line feed 


semicolon 


colon 


period 


dollar sign 


plus 


minus 


asterisk 


slasn 


at-sign 


underscore 


exclamation 
point 


separator 


separator, legal in source 
files, expanded in list files 


Delimiters 


terminate source lines 


legal after CR; if within 
intez= 


source lines, it 1s 
preted as a space 


start comment field 
identifies a label, 
used in seqment ove 
specification 


forms variables from 
numbers 


notation for "present value 


of location vointer” 


arithmetic operator 
addition 


arithmetic overator 
subtraction 


arithmetic operator 
mult iplication 


arithmetic operator 
division 


legal in identifiers 


legal but ignored in 
identifiers 
loqically terminates 
statement, thu 
multiple state 
single source 


rride 


“or 


For 


fr 


a 


1 

s allowing 
Tu ii 
1j 


apostroohe delimits string constants 


A 


y 


y 
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2.4 Constants 


A constant is a value known at assembly time that does not 
change while the assembled program is executed. A constant may De 
either an integer or a character strina. . 


2.4.1 Numeric Constants 
A numeric constant is a l6-bit value in one of several bases. 
The base, called the radix of the constant, is denoted bv a trailing 


radix indicator. The radix indicators are shown in Table 2-2, 
below. 


Table 2-2.. Radix Indicators for Constants 














B binary 2 
O octal 8 
Q octal 3 
D decimal 10 

nexadecimal 16 


ASM-86 assumes that any numeric constant not terminated with a 
radix indicator is a decimal constant. Radix indicators may be 
upper or lower case. 


A constant is thus a sequence of digits followed by an optional 
radix indicator, where the digits are in the range for the radix. 
Binary constants must be composed of 0s and ss Decal. cigi=s 
range from 0 to 7; decimal digits range from 0 to 9. Hexadecimal 
constants contain decimal digits as well as the hexadecimal digits A 
(10D), B (11D), C (12D), D (13D), E (14D), and ? (15D). Note that 
the leading character of a hexadecimal constant must be either a 
leading 0 or a decimal didit so that ASM-86 cannot confuse a hex 
constant with an identifier. The following are valid numeric 
constants: 


1234 1234D 11008 11110000111100008 
:234H OrrtH 33770 137720 
33770 OFE3H 1234d £2£fh 
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2.4.2 Character Strings 
ASM-86 treats an ASCII character string delimited bv 
apostrophes as a string constant. All instructions acceot only one- 
Or two-character string constants as valid arguments. Instructions 
treat a one-character string as an 8-bit number. A two-character 
string is treated as a l6-bit number with the value of the second 
character in the low-order byte, and the value of the first 
character in the high-order Dyte. i 


The numeric value of a character is its ASCII code.  ASM-86 
does not translate case within character strings, so both upper- and 
lower-case letters can be used. Note that only alphanumerics, 
special characters, and spaces are allowed within strings. 


A DB assembler directive is the only ASM-86 statement that may 
contain strings longer than two characters. The string may not 
axceed 255 bytes. Include any apostrophe to be orinted within the 
string by entering it twice.  ASM-86 interprets the two kevstrokes 
^' as a single apostrophe. Table 2-3 shows valid strings and how 
they appear after processing: 


Table 2-3. String Constant Examples 


A ^^ 


a a 
“AB Ca” AbD'Cd 
^l like CP/M^ I Like CD/M 


A A A 


“ONLY UPPER CASE” ONLY TPPER CASE 
“only lower case” only lower case 





2.5 Identifiers 


Identifiers are character sequences which have a special, 
svmbolic meaning to the assembler. All identifiers in ASM-86 must 
obey the following rules: 


1. The first character must be alphabetic (A,...2, 
-SRS oe 


r alphabetical. 


2. Any subsequent characters can >e eith 
or a numeral (0,1,.....9). ASM-R6 ign 
characters 8 and , but they are st 


iD 


example, a b becomes ab. 


^h 


1. Identifiers mav be bf any length up to the limit C 
the ohysical line. 
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Tdentifiers are of two tvpes. The first are keywords, which 


-have predefined meanings to the assembler. The second are symbols, 


which are defined by the user. The. following are al! valid 
identifiers: 


NOLIST 

|» WORD 

AH 

Third street 

How are you today 
variable@number 41234567890 


2.5.1 Keywords 


A keyword is an identifier that has a oredefined meaning to the 
assembler. Keywords are reserved; the user cannot define an 
identifier identical to a keyword. For a complete list of kevwords, 
see Appendix D. 


ASM-86 recognizes five tvpes of keywords: instructions, 
directives, operators, registers and predefined numbers. 8086 
instruction mnemonic keywords and the actions thev initiate are 
defined in Section 4. Directives are discussed in Section 3. 


Section 2.6 defines operators. Table 2-4 lists the ASM-B6h keywords 
that identify 8086 registers. 


Three kevwords are oredefined numbers: BYTE, WORD, and DWORD. 
The values of these numbers are 1, 2 and 4, respectively. tn 
addition, a Type attribute is associated with each of these numbers. 
The kevword”s Tvpe attribute is equal to the keyword's numeric 
value. See Section 2.5.2 for a complete discussion of "voe 
attributes. 
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Table 2-4. Register Keywords. 


Register Numeric 


Symbol Size Value Meaning 





AH L byte 100 8 Accumulator-High-Byte 

BH E um lll B8 Base-Register-High-Bvte 

CH L A 101 8 Count-Reqister-High-Byte 

DH i: * 110 B Mata-Register-Highn-Bvte 

AL E 07 000 B Accumulator-Low-Bvte 

BL b 011 3 Base-Reqister-Low-Bvte 

CL E. o^ 001 B Count-Redister-Low-Byte 

DL E o O10 B Nata-Regqister-Low-Byts 

AX 2 oytes 000 B Accumulator (full word) 

BX 2. 8 * OLL B Base-Register i 

CX a m golL B Count-Register R 

DX 2 R 010 3 Data-Register a 

8? a * 101 3 Base Pointer 

32 zw 100 B Stack Pointer 

SI 2.7 110 B Source Index 

Da 2. F 111 B Destination Index 

CS 2 0" 01 3 Code-Seqment-Reqister 

DS r E 11 3 Data-Segment-Register 

SS P = 10 3 Stack-Seqment-Register 
| zo a. a 00 B Extra-Segment-Register 





2.5.2 Symbols and Their Attributes 


A svmbol is a user-defined identifier that has attributes whic! 
secify what kind of information the symbol represents. Symbols 
1l into three categories: 


e Variables 


e labels 
e numbers 


Variables identify data stored at a particular location in 
memory. All variables have the following three attributes: 
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e Segment - tells which segment was being assembled when the 
variable was defined. : 


ə Offset - tells how many bytes there are between the 
beginning of the segment and the location of this variable. 


e Type — tells how many bytes of data are manioulated when 
this variable is referenced. 


A Segment may be a code-segment, a data-segment, a stack- 
segment or an extra-segment depending on its contents and the 
register that contains its starting address (see Section 3.2). A 
segment may start at any address divisible by 16. ASM=86 uses this 
boundary value as the Seqment portion of the variable’s definition. 


The Offset of a variable may be any number between 0 and OFFFFH 
or 5$5535D, A variable must have one of the following Type 
attributes: | 


e BYTE 
e WORD 
e DWORD 


BYTE specifies a one-byte variable, WORD a two-bvte variable 
and DWORD a four-oyte variable. The DB, DW, and DD directives 
respectively define variables as these three types (see Section 3). 
Tor example, a variable is defined when it apuears as the name for a 
storage directive: 


VARIABLE OB 9 


A variable may also be defined as the name for an ZQU directive 
referencing another label, as shown below: 


VARIABLE  EOU ANOTHER VARIABLEZ 
Labels identify locations in memory that contain instruction 
statements. They are referenced with jumps or calls. All labels 


nave two attributes: 


@ Segment 
» Offset 


Label segment and offset attributes are essentially the same as 


Variable segment and offset attributes. Generallv, a label is 
defined when it precedes an instruction. A colon, :, separates «one 


label from instruction: for example: 
LABEL? ADD AX, BX 


A label may also appear as the name for an EQU directive 
referencing another label; for examole: 


LABEL 2916: ANOTUER LABEL 
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Numbers may also be defined as svmbols. A number svmbol is 
treated as if you had explicitly coded the number it represents. 
For example: . | 


Number five EOU 3 
MOV . AL,Number five 


is equivalent to: 
MOV AL,5 


Section 2.6 describes operators and their effects on numbers 
and number symbols. 


2.6 Operators 

ASM-86 operators fall into the following categories: 
arithmetic, logical, and relational operators, segment override, 
variable manipulators and creators. Table 2-5 defines ASM~86 
operators. In this table, a and 5 represent two elements of the 
expression. The validity column defines the type of operands the 
operator can manipulate, using the or bar character, |, to Separate 
alternatives. 


Table 2-5. ASM-86 Operators 





Syntax | Result Validity 


Logical Operators 





| | 
| | 
l 
| a XOR 5 hit-pv-oit logica! EXCLUSIVE a, b = number | 
| OR of a and b. | 
1 
| a OR D Sit-by-bit logical OR of a a, b = number | 
| and b. 
| a AND C hit-by-bit logical AND of a a, b = number 
| and b. | 
NOT a Logical inverse of a: all 0's a = l6-bic- | 
become l^s, l'/s become 0's. number | 
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Table 2-5. (continued) 













Syntax Validitv 
Relational Operators 
a EO b returns OFFFFH if a = b, a, b= 
otherwise Q. | unsigned number 














a LT D returns OFFFFE if a < b, a, d= 
otherwise 0. unsigned number 














a LE D returns OFFFFH if a <= D, a, D = 
otherwise 0. unsigned number 








a GT D returns OFTTFFH 1f a > 3, a, 53 
otherwise 0. unsianed number 












a GE 5 returns OFPFFR if a >= D a, D = 
otherwise 0. unsigned number 





a NE 5 returns OFFFFH if a <> D, a, D = 
otherwise 0. unsigned number 
















a + > arithmetic sum of a and D. a s variable, 
!abel or number 
b z number 








variable, 
el or number 
number 
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number 


a * D does unsigned multiplication EK D 
of a and 95. 






a 7 2 does unsigned division of a a, Db = number 
and D. 

a MOD 92 returns remainder or a 7 34 a, D = number 

a SUL D raturns the value which a, b = number 
results from shifting a to ¡ 
left bv an amount D. | 

a SHR 5 returns the value which a, D = number 
results from shifting a wo 
rhe right bv an amount D. 

* a gives a. a = number | 
gives U 3. a = number | 





Al] Information Presented Here is Proorietarwv to Siaikal Researcn 


CP/M-86 Programmer s “uide 


2.6 Operators 


Table 2-5. (continued) 


Segment Override 


«seg req»: overrides assembler”s choice <seg req» 2 
«addr exp» Of seqment register. CS. DS; 99 
l or ES 
Variable Manipulators, Creators 
SEG a creates a number whose value a = label | 
is the segment value of the Variable 


variable or label a. 


OFFSET a creates a number whose value a = label | 
is the offset value of the variable 
variable or label a. 


b. 
A A ——Ó— M — 


TYPE a creates a number. If the a = label | 
m variable a is of type BYTE, variable 
WORD or DWORD, the value of 
the number will be l, 2 or 4, 
respectively. 


LENGTH a creates a number whose value a = label | 
is the LENGTH attribute of variable 
the variable a. The length 
attribute is the number of 
bytes associated with the 
variable. 
LAST a if LENGTH a > 0, then LAST a a = label | 
= LENGTH a ~ l; i$ LENGTH a = variapla 
| 0, then LAST a = Q. 
| a PTR 5 creates virtual variable or a = BYTE | 
| Label with type of a and WORD, | DWORD 
| attributes of 5 ^ b = «addr exp» 
a creates variable with an a = number 
offset attribute of a. 
Segment attribute is current 
segment. 
| S creates label with offset no argument | 
| 


equal to current value of 
location counter; segment 
attribute is current 


segment. 





ALL Information Presented Here is Proprietary to Digital Research 


14 


CP/M-86 Programmers Guide 


2.6.1 Operator Examples 


2.6 | OÓoeratocs 


Logical operators accept only numbers as overands. They 
perform the boolean logic operations AND, OR, YOR, and NOT. Por 


examole: 
DDEC MASK ROU 
0080 SIGNBIT EQU 
0000 B180 MOV 


0002 8003 MOV 


OFCH 

808 

CL,MASX AND SIGNBIT 
AL,NOT MASK 


Relational overators treat all operands as unsigned numbers. 


The relational operators are EO (equal 
-han or equal), GT (greater than), GE ( 


LT (less than), LE (less 
greater than or equal), and 


NE (not equal). Each operator compares two overands and returns all 
ones (OFFFFH) if the specified relation is true and all zeros if it 


is not. For example: 
Q00A LIMITl EQU 
0019 LIMIT2  EOU 
0004 B8FFFF MOV 
0007 380000 MOV 


Addition and subtraction operators CO 
and difference of two operands. The 


AX,LIMITi LT LIMITA 
AX,LIMITl GT LIMIT 


moute the arithmetic sum 
first operand may oe a 


variable, label, or number, but tne second operand must be a number. 


When a number is added to a variable or 


label, the result is a 


variable or label whose offset is the numeric value of the second 


operand plus the offset of the first operand. 


Subtraction from a 


Variable or label returns a variable or label wnose offset is that 


of first operand decremented by the number 


operand. For example: 
0002 COUNT EQU 
0005 DISP1 EOU 
COOA FF | FLAG DB 
0008 2EA00800 MOV 
000F 228AO0E0F00 MOV 
0014 8303 MOV 


soecified in che second 


AL, FLAG+L 
CL,FLAG+AISel 
BL, DISPL-COUNT 


The multiplication and division operators *, /, MOD, SBL, and 
SHR accept only numbers as overands. * and / treat all operators as 


unsigned numbers. For example: 


0016 BES500 MOV 
0019 8310 MOV 
0050 SUFTERSIZE 
0013 B8A000 MOV 


ST,250/3 

8L,64/4 

EOU 30 
AX,8UTFZRSIZE * 2 
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nary operators acceot both signed and unsigned overators as 
shown below: o 


Q0lE 8123 MOV Ciera 


0020 8007 | MOV AL,2--5 
0022 B2F4 LE MOV nL,-12 


When manipulating variables, the assembler decides which 
segment register to use. You may override the assembler”s choice bv 
specifying a different redister with the segment override operator. 
The syntax for the override operator is <seqment reqistar» 
«address expression» where the «seqment register» is CS, DS, SS, or 
ES.  For- example: | 


0024 368B472D . | MOV AX, SS :WORDBUPFER (8X | 
0028. 268R0ESB00 | MOV CX,ES:ARRAY 


'A variable manipulator creates a number equal to one attribute 
of its variable operand. SEG extracts the variable's seqment value, 
OFFSPT its offset value, TYPE its tvoe value (l, 2, or 4), and 
LENGTH- the number of bytes associated with the variable. LAST 
compares the variable/s LENGTH with 0 and if greater, then 
decrements LENGTH bv one. If LENGTH equals 0, LAST leaves it 
unchanged. Variable manipulators accept only variables as 
overators. For example: 


002D 000000000000 WORDBUFFER pw 0-40 

0033 0102030405 BUFFER DB 1.273,95 
0038 880500 MOV AX, LENGTH BUFFER 
003B 380400 MOV AX,LAST BUFFER 
003E 880100 MOV AX,TYDE BUFFER 
0041 880200 MOV AX, TYPE WORDRUTTZA 


The PTR operator creates a virtual varianie or label, one valiá 
only during the execution of the instruction. It makes no chanaes 
Lo either of its operands. The temporary symbol has che same Type 
attribute as the left operator, and all other attributes of tune 
right operator as shown below. 


0044 C60705 MOV ATTE. PTR {BX];, 5 
0047 8A07 MOV AL, BYTE PTR {BX} 
.0049 FFO4 INC WORD PTR [SI] 
The Period operator, ., creates a variable in the current data 
segment. The new variable has a segment attribute equal to rhe 
current data segment and an offset attribute equal to its operand 


tts operand must be a number. Tor example: 


0048 A10000 MOV AX, .Q 
3 


004E 268B130040 MOV BX, - 40008 


i‘) 
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The-Dolilar-sign operator, $, creates a labe! with an offset 
attribute equal to the current value of the location counter. The 
label^s segment value is the same as the current code segment. This 
operator takes no overand. For example: 


0053 E9FDFT JM? So 
0056 EBFE JMPS S 
0058 E9FD2F JMP S+3000H 


2.034 Operator Precedence 


Expressions combine variables, labels or numbers with 
operators.  ASM-86 allows several kinds of exoressions which are 
discussed in Section 2.7. This section defines the order in which 
operations are executed should more than one operator appear in an 
expression. 


In general, ASM-86 evaluates expressions left to right, but 
operators with higher precedence are evaluated before overators with 
lower precedence. When two operators have equal precedence, the 
left-most is evaluated first. Table 2-6 oresents ASM-86 operators 
in order of increasing precedence. 


Parentheses can override normal rules of precedence. The nart 
of an expression enclosed in parentheses is evaluated first. If 
Darentheses are nested, the innermost expressions are evaluated 
LD. Only five levels of nested parentheses are legal. Por 
example: 


+227 
15/(3 + 2) = 15/5 = 3 


H 
how 
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Table 2-6. Precedence of Operations in ASM-86 


Operator Type Operators 


Logical XOR, OR 





Logical AND 
Logical : NOT 


Relational BO, LT; LE; GT, 
GE, NE 


Addition/subtraction ge S 


Multiplication/division *, /, MOD, SHL, 
SHR 


7 Unary +, - | 
i 8 Segment override «seqment override»: 
9 Variable manipulators, SEG, OFTSET, PTR, 
creators TYPE, LENGTH, LAST 
10 Parentheses/drackets Che T ! 
Il Period and Dollar sp S | 


2.7 Expressions 


ASM-86 allows address, numeric, and bracketed expressions. An 
address expression evaluates to 2 memory address and nas inree 


components: 


e A segment value 
e An offset value 
A e A type 


Roth variables and labels are address expressions. An address 
expression is not a number, Dut its Components are. Numbers mav oe 
combined with operators such as PTR to make an address expression. 


A numeric expression evaluates to a number. ts does not 
contain any variables or labels, only numbers and overands. 


Bracketed expressions specify base- and index- addressing 
z modes. The base registers are BX and BP, and the index reqisters 
are DI and St. A bracketed expression may consist of a case 
register, an index register, or a base register and an index 
register. 
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Use the + operator between a base register and an index reqister to 
specify both base- and index-reqister addressing. For example: 


MOV variable[bx!] ,9 
MOV AX, ([BX+DTI] 
MOY AX,[ST} 


2.8 Statements 


Just as "tokens" in this assembly language correspond to words 
in English, so are statements analogous to sentences. A statement 
tells ASM-86 what action to perform. Statements are of two tvoes: 
instructions and directives. Instructions are translated by the 
assembler into 3086 machine language instructions. Directives are 
not translated into machine code but instead direct the assembler to 
perform certain clerical functions. 


Terminate each assembly language statement with a carriage 
return (CR) and line feed (LF), or with an exclamation point, !, 
which ASM-86 treats as an end-of-line except in comments. Multiole 
assembly lanquage statements can be written on the same ohvsica! 
line if separated 5v exclamation points. 


The ASM-86 instruction set is defined in Section 4. The syntax 
for an instruction statement is: 


‘(label:}] ([orefixl mnemonic L overand(s) | [ «comment ] 


where the fields are defined as: 


label: 
A symbol followed by ":" defines a label at the current 
value of the location counter in the current segment. 
This field is ovotional. 
Dretix 
Certain machine instructions such as LOCK and REP? may 
prefix other instructions. This field is optional. 
mnemonic 


A symbol defined as a machine instruction, either ov the 
assembler or hy an EOU directive. This field is optional 


unless preceded bv a prefix instructions IX. 5 
omitted, no operands may be present, although the other 
fields mav appear. ASM-86 mnemonics are defined in 


Section 4. 
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 overand (s) 


An instruction mnemonic may require other symbols to: 
represent operands to the instruction. Instructions mav 


have zero, one or two operands. 
comment 


Anv semicoton (;) appearing outside a character 


string 


begins a comment, which is ended 5v a carriage return. 
Comments improve the readability of orodrams. This field 


is optional. 


ASM-86 directives dE LL Section 3. The syntax for a 


directive statement is 

[name] directive  operand(s) [;comment] 
where the fields are defined as: 
name 


the label 
a directive 


C1 
rc 
f~- 
A* 
(D 


n 

ir a legal for only DB, DW, DD, 
QU. For DB, DW, DD and RS the name is optional; 
t is required. 


EL 
1 
E 
D 


íÁ 00 O 


One of the directive kevwords defined in Section 


operand (s) 


aid of an instruction, the name field 
s never terminated with a colon. 
a RS and 
for ¿0U 


3 


Analogous to the operands to the instruction mnemonics. 
Some directives, such as DB, DW, and DD, allow any 


operand while others have special requirements. 
comment 


a 


Zxactliy as defined for instruction statements. 


Y 
TU 
” 
Q 
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Section 3. 
Assembler Directives 


3.1 Introduction 


Nirective statements cause ASM-86 to coerform housekeeving 
functions such as assigning portions of code to 'ogical seqments, 
requesting conditional. assembly, defining data items, and specifying 
listing file format. General svntax for directive statements 
appears in Section 2.8. 


In the sections that follow, the specific syntax for each 
directive statement is given under the heading and before the 
exolanation. These syntax lines use specia! symbols to reoresent 
possible arguments and other alternatives. Square brackets, (], 
enclose ootional arguments. Angle brackets, <>, enclose 
descriptions of user-supplied arguments. Mo not include these 
symbols when coding a directive. 


3.2 Segment Start Directives 


At run-time, every 8086 memory reference must have a 16-bit 
segment base value and a 16-bit offset value. These are combined to 
otoduce the 20-bit effective address needed bv the CPU to physically 
address the location. The lé-bit segment base value or boundary is 
contained in one of the seqment registers CS, DS, SS, Or ES. The 
offset value gives the offset of the memory reference from the 
segment boundary. A l6-bvte physical segment is the smallest 
relocatable unit of memory. 


ASM-86 oredefines four logical segments: the Code Seqment, Data 
Segment, Stack Segment, and Extra Segment, which are respectively 
addressed ov the CS, DS, SS, and ES reqisters. Future versions ot 
ASM-86 will support additional segments such as multiole data or 
code segments. All ASM-86 statements must be assigned to one of the 
four currently supported seqments so that they can be referenced Dv 
the CPU. A segment directive statement, CSEG, DSEG, SSEG, or ESEG, 
specifies that the statements following it belong to a specific 
seqment. The statements are then addressed bv the corresvonding 
segment register unless a segment override is included with the 
instruction.  ASM-86 assigns statements to the specified segment 
until it encounters another segment directive. 


Instruction statements must be assigned to the Code Seqment. 
Directive statements mav be assigned to any seqment.  ASM-86 uses 
these assignments to change from one seqment register to anotner. 
Tor example, when an instruction accesses a memory variable, ASM-86 
must know which segment contains the variable so it can generate a 
Segment override orefix byte i? necessary. 


t 
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3.221 The CSEG Directive 


CSEG «numeric expression? 
CSEG 
CSEG S 


This directive tells the assembler that the followings 
statements belong in the Code Seament. Ail instruction statements 
must be assigned to the Code Seqment. All directive statements are 
legal within the Code Segment. 


Use the first form wnen the location of the segment is known at 
assembly time; the code generated is not relocatable. Use the 
second form when the segment location is not known at assembly time; 
the code generated is relocatable. Use the third form to continue 
the Code Segment after it has been interruoted by a DSEG, SSEG, Or 
SEG directive. The continuing Code Segment starts with the same 
attributes, such as location and instruction pointer, as the 
previous Code Seqment. 


1.2.2 The DSEG Directive 


«numeric expression»? 
S 


This directive specifies that the following statements belona 
-=o the Data Seqment. The Data Segment primarily contains the data 
allocation dizectives 28, DW, DN and RS, Dut all other directive 
statements are also legal. Instruction statements are illegal in 
the Data Segment. 

Use the first form when the location of the segment is <nown ac 
assembly time; rhe code generated is not relocatable. Use rhe 
second form when the segment location is not known at assembly time; 
the code generated is relocatable. Use the third form to continue 
the Data Segment after it has been interrupted bv a CSEG, SSEG, or 
ESEG directive. The continuing Data Segment starts with the same 
attributes as the orevious Data Segmenc. 


3.2.3 The SSEG Directive 


SSEG «numeric expression? 
SSEG 
SSEG S 


The SSEG directive indicates the beginning of source Lines for 
the Stack Seqment. Use the Stack Segment for all stack operations. 
All directive statements are ilegal in the Stack Seament, Dut 
instruction statements are illegal. 
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Use the first form when the location of the seqment is Known at 
assembly time; the code generated is not relocatable. Use the 
second form when the seament location is not known at assembly time; 
the code generated is relocatable. Use the third form to continue 
the Stack Segment after it has been interruoted by a CSEC, DSEG, or 
ESEG directive. The continuing Stack Segment stacts with the same 


attributes as the previous Stack Seqment. 


3.2.4 The ESEG Directive 


ESEG «numeric expression» 
ESEG 
ESEG v 
This directive initiates the Extra Seqment. instruction 


statements are not legal in this seqment, but all directive 
Statements are. 


Use the first form when the location of the seqment is known at 
assembly time; the code generated is not relocatable. Use the 
second form when the seqment location is not known at assemblv time; 
the code generated is relocatable. "se the third form to continue 
the Extra Segment after it has been interrupted by a DSEG, SSEG, or 
CSEG directive. The continuing Extra Seqment starts with the same 
attributes as the orevious Extra Segment. 


3.3 The ORG Directive 
ORG «numeric exoression> 


The ORG directive sets the offset of the location counter in 
the current segment to the value specified in tae numeric 
expression. Define all elements of the expression before the ORG 
directive because forward references may be ambiguous. 


In most segments, an ORG directive is unnecessary. If no ORG 
is included before the first instruction or data byte in a segment, 
assembly begins at location zero relative to the beginning of the 
segment. A segment can have any number of ORG directives. 
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3.4 The IF and ENDIF Directives 


IF «numeric exoression» 
< source line l > 
« source line 2 > 


« source line n » 
ENDIF 


The IF and ENDIF directives allow a group of source lines to De 
included or excluded from the assembly. Use conditional directives 


Ka assemble several different versions of a sinale source program. 


When the assembler finds an IF diractive, it evaluates the 
numeric expression following the IF kevword. If the expression 
evaluates to a non-zero value, then «source line l» through «source 
line n» are assembled. Tf the expression evaluates to zero, then 
all lines are listed but not assembled. All elements in the numeric 
expression must be defined before they appear in tne IF directive. 
Nested IF directives are not legal. 


3.5 The INCLUDE Directive 


INCLUDE <file name> 


This directive includes another ASM-86 file in tne source text. 
"or example: 


INCLUDE  EOUALS.A86 


Use INCLUDE when the source orogram resides in several 


different files. INCLUDE directives may not be nested; a source 
Zile called bv an INCLUDE directive mav not contain another INCLUDE 
statement. Ti <file name» does not contain a file tvpe, the fila 
type is assumed to be .A86. If no drive name is specified with <ft)le 
name>, ASM-86 assumes the drive containing the source file. 
3.6 The END Directive 
ZND 

An END directive marks the end of a source file. Anv 
subsequent lines are ignored by the assembler. END is optional. Tf 
not present, ASM-86 processes the source until it finds an End-Of- 


Fila character (LAH). 
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3.7 The EQU Directive 


symbol FOU «numeric expression» 
symbol EOU <address exuression> 
symbol EQU <reqister> 

symbol EQU «instruction mnemonic» 


The EOU (equate) directive assigns values and attributes to 
user-defined symbols. The required symbol name may not oe 
terminated with a colon. The svmbol cannot be redefined by a 
subsequent EQU or another directive. Anv elements used in numeric 
or address expressions must be defined before the EOU directive 


appears. 


The first form assigns a numeric value to the symbol, the 
second a memory address. The third form assigns a new name to an 
8086 register. The fourth form defines a new instruction (sub)set. 
The following are examples of these four forms: 


0005 FIVE ZOU 2° 2%) 
0033 NEXT EOU SUPFERR 
0001 COUNTER -ZOT jo d 
MOWVWVV ZOU MOV 
005D 38C3 MOVVV AX,B8X 


3.3 The DB Directive 


[symbol] DB «numeric expression>f,<numeric exoression>..| 
[symbol] DB «string constant>[,<string constant»...] 


The DB direc sive defines initialized storage areas in dSvte 
format. Numeric expressions are 2000 d to $-bit values and 
sequentially piaced in the hex output file. String constants are 
olaced in the output file according to the rules defined in Section 


2.4.2. A DB directive is the only ASM-86 statement that accepts a 
string constant longer than two bytes. There is no translation trom 
lower to upper case within strings. Multiple exDressions oc 
constants, seoarated by commas, nay be added to the definition, out 


may not exceed the physical line Jenatn. 


Use an optional symbol to reference the defined data ars 
throughout the orogram. The symbol has four attributes: < 
Segment and Offser attributes determine the symbols memory 
reference, the Type attribute specifies single bytes, and Lengt: 
cells the number of bytes (allocation units) reserved. 
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3.11 The RS Directive 
[symbol] RS «numeric expression» 

The RS directive allocates storage in memory but does not 
initialize it. The numeric exoression gives the number ot bytes to 
me reserved. An RS statement does not dive a byte attribute to the 
optional symbol. For example: 


0010 Su RS 30 


0060 RS 40008 
4060 RS i 


3.12 The RB Directive 
[symbol] R3 «numeric expression» 


The RB directive allocates bvte storage in memory without any 
initialization. This directive is identical to the RS directive 
excent that it does give the byte attribute. 


4 


3.13 The RW Directive 
[symbol] RW «numeric expression»? 


ates two-bvte word storage in memorv out 
| e numeric expression gives the number of 
words to be reserved. For example: 


SUTT RW 128 
RW 40008 
AW L 


TE 
Es y+ O 
Ov QY d 
q jH PA 


3.14 The TITLE Directive 


Statement at the ton of each printout sage in the lis 
titla character string should not exceed 30 ch 
example: 


TITLE “CP/M monitor" 


3.15 The PAGESIZE Directive 
2AGESIZE «numeric expression»? 


The PAGESIZE directive defines tne 
included on each printout vaga. The default cades! 
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3.16 The PAGEWIDTH Directive 
PAGEWIDTR «numeric expression» 
The PAGEWIDTH directive defines the number of columns orinted 
across the page when the Listing file is output. The default 


pagewidth is 120 unless the listing is routed directly to the 
terminal; then the default pagewidth is 79. 


3.17 The EJECT Directive 


EJECT 
The EJECT directive performs a paqe eject n orintout. The 
JECT directive itself is printed on the firs line of the next 
page. 


3.18 The SIMFORM Directive 
SIMFORM 
The SIMFORM directive reolaces a form-feed (FF) character in 
rhe print file with rhe correct number of line-feeds (LT). Use this 


directive when orinting out on a oF inter unable £0 interoret tne 
form-£eed character. 


3.19 The NOLIST and LIST Directives 


NOLIST 


LIST 


mhe NOLIST directive blocks the orintout of the followins 
Lines. Restart the Listing with a LIST directive i 
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The ASM-86 Instruction Set 


4.1 Introduction 


The ASM-86 instruction set includes all 8086 machine 
instructions. The general svntax for instruction statements is 
given in Section 2.7. The following sections define the specific 
syntax and required operand tvpes for each instruction, without 
reference to labels or comments. The instruction definitions are 
presented in tables for easy reference. For a more detailed 
description of each instruction,. see Intel's MCS-86 Assemblv 
Language Reference Manual. For descriptions of the instruction bit 
patterns and operations, see Intel”s MCS-86 User's Manual. 


The instruction-definitiom tables present ASM-86 instruction 
statements as combinations of mnemonics and operands. A mnemonic is 
a symbolic representation for an instruction, and its operands are 
its required varameters. Instructions can take zero, one or two 
operands. When two operands are specified, the left operand is the 
instruction’s destination operand, and the two operands are 
separated bv a comma. 


The instruction-definition tables organize ASM-86 instructions 
into functional groups. Within each table, the instructions are 
listed alphabetically. Table 4-1 shows the symbols used in the 
instruction-definition tables to define operand tyves. 


Table 4-1. Operand Type Symbols 


Symbol Operand Type 


numb any NUMERIC expression 


numb8 any NUMERIC expression which 
evaluates to an 8-bit number 


req any general purpose register, 
not segment register 


real a 16-bit general purpose register, 


acc accumulator register, AX or Au 
not segment register 


segrar any segment register: C5, DS, SS, 
Or BS 
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Table 4-1. (continued) 


= 


mem any ADDRESS expression, with or 
without base- and/or index- 
addressing modes, such as: 


Variable 
variable+3 
Variable(bx] 
variablelSI) 
variable[Bx+ST] 
(BX] 

(BP-DI] 


simpmem any ADDRESS expression WITHOUT base- 
and index- addressing modes, such as: 


variable 
Variable+4 
mem|reg any expression symbolized bv "req" 
or "mem" 
memlregl6 any expression symbolized bv 


"mem|reg", but must be 156 bits 


label any ADDRESS expression which 
evaluates to a label 


1ab8 any "label" which is within +/- 128 
bytes distance from the instruction 


The 8086 CPU has nine single-bit Flag registers which reflect 
the state of tne CPU. The user cannot access these registers 
directly, but can test them to determine the effects of an executed 
instruction upon an operand or register. The effects of 
instructions on Flag registers re also described in the 
instruction-definition tables, using the symbols shown in Table 5-2 
zo represent the nine Flag registers. 
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pes Table. 4-2.. Flag Register Symbols. 


" huxiliíary-Carrv-Flaq 
Cacry-Fiag i 
| Direction-Flag e 
.......1nterrupt-Enahle-FPFlag 


Overflow-Flaq 
Parity-Flaq 
Sigqn-Flaq 
Trap-Flaqg 
Zero-Plaq 





4.2 Data Transfer Instructions 


There are four classes of data transfer operations: general 
purpose, accumulator specific, address-object and flag. Onlv SARF 
and POPF affect flag settings. Note in Table 4-3 that if acc = AL, 
a byte is transferred, but if acc = AX, a word is transferred. 


Á— Table 4-3. Data Transfer Instructions: 













transfer data from input vort given 
by numb8 or numbi6 (0-255) to 
accumulator 


acc,numb8|numbló6 - 


IN acc,Dx transfer data from input port given 
by DX register (0-OFFFFH) to 
accumulator 

















LARF .—— "EE" transfer SF, ZF, AF, PF, and CT 


T, 
flags to the AH register 


LDS regl6,mernr transfer the segment vart of the 
memory address (DWORD variabie) to 
the DS seament reqister, transfer 
the offset part to a general 
purpose l6-bit register 


LEA regl6,mem transfer the offset of the memory 
address to a (l6-bit) register 


LES regl6,mem transfer the seqment part of the 
memory address to the ES segment 
reqister, transfer the offset part 
to a l6-bit general ourvose register 


MOV req,memireq move memory or register to register 


mem|req,reg move register to memory or redister 
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po s coc able 4-3. (continued) 


MOV mem|reg,numb move immediate data. to memory or 
register 

MOV segreg,mem|regl6 move memory or register to segment 
register 

MOV mem|regl6,segreg move segment reqister to memory or 
reqister 

OUT numb8numb16,acc transfer data from accumulator 


to output port (0-255) given by 
numb8 or numbl6 


OUT DX,acc transfer data from accumulator to 
output voort (0-OFFFFE) given by DX > 
reqister l 

POP mem|regl6 move top stack element to memorv or 
register 

POP seqreg move top stack element to seqment 


register; note that CS seqment 
register not allowed 


POPF -ransfer top stack element to flags 


PUSH mem; realé move memory or register to too 
stack element 


| 
PUSH segre move seqment register to top stack 


reqiscer 


XLAT memi reg perform table lookup translation, 
rabla giyen by "memireq", which is 
always BX. Replaces AL with AL 


offset from 3%. 


2USHF transfer flags to top stack element 
| SAHF transfer the AH reqister to flags 
XCRG reg ,memi reg exchange register and memory or 
| register 
XCEG . mem!req,req axchange memory or register and 
| 
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4.3. Arithmetic, Logical, and Shift Instructions 


The 8086 CPU performs the four basic mathematical operations in 
several different ways. It supports both 8- and 16-bit operations 
and also signed and unsigned arithmetic. 


Six of the nine flag bits are set or cleared by most arithmetic 
operations to reflect the result of the overation. Table 4-4 
Summarizes the effects of arithmetic instructions on flag bits. 
Tabla 4-5 defines arithmetic instructions and Table 4-6 logical and 
shift instructions. 


Table 4-4. Effects of Arithmetic Instructions on Flags 







CP is set if the operation resulted in a carry out of 
(from addition) or a borrow into (from subtraction) 
the high-order bit of the result; otherwise CF is 
cleared. 


is set if the operation resulted in a carry out of 
(“rom addition) or a borrow into (from subtraction) 
“he low-order four bits of the result; otherwise AF 
3 






ZP is set if the result of the operation is zero; 
otherwise ZF is cleared. 


| SF is set if the result is negative. 
| PF is set if the modulo 2 sum of the low-order e 
( 


bits of the result of the operation is 0 
oaritv): otherwise PF is cleared (odd parity). 


ight 

even 

OP is set if the operation resulted in an overflow: the 
size of the result exceeded the capacity of its 
destination. 
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AAA 
AAD 
AAM 
AAS 
ADC 
ADC 
ADC 
ADD 


ADD 


ADD 


CAD 


a 
p 
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Table 4-5. 


reg,mem{ reg 


mem|reg,reg 


aem|reg,numb 


req,mem|re 


mem|reg,reg 


mem|req,numb 


t1 
iD 
Aa 
J 
(D 
= | 
ri 
iD 
à 


mem!reg,reg 


nem|reg,numb 


4.3 Ar 


t^ 
p^: 


Ehmetlc, Logic; 2n52 Sh 


Arithmetic Instructions 


Result 


adjust unpacked BCD (ASCII) for 
addition - adjusts AL 


adjust unpacked BCD (ASCII) for 
division - adjusts AL 


adjust unpacked BCD (ASCII) for 
multiplication - adjusts AX 


adjust unpacked BCD (ASCII) for 
Subtraction - adjusts AL 


add (with carry) memorv or 
register to register 


add (with carry) register to memory 
or register 


add (with carry) immediate data co 
memory or register 


add memory or register to register 


t- 
Uu) 


add register to memorv or reqiste 


134 


add immediate data to memorv or 
eqister 

convert byta in AL to word in AH bv 
Sign extension 


convert word in AK to double wore 
in DX/AX by sign extension 


compare register with memory or 
register 


compare memory or 


reqisterc 


t1 
iD 
ñ 
t+ 
ul 
ct 
iD 
t1 
£ 
y 
(t 
J 


compare data constant with memory 
pr reqister 


decimal adiust for addition, 
adiusts AL 


decimal adjust for subtraction, 
adjusts AL l 


!n 


(* 


a €————————————— a 1 L c 
ee rr t rr — ur 
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Table 4-5. 





INC menl red 
NIV mem! reg 
| IDIV mem|reg 
IMUL mem! reg 
| 
| MOL mem|reg 
NEG mem|reg 
| 333 reg ,mem|req 
388 mem!reg,req 
| 
| SBB mem|reg,numb 
| 
SUS reg,memi|req 
| SUB memireg,req 
| 
| 
STB mem|reg,numb 
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(continued) 


add L to memory or register 


divide (unsigned) accumulator (AX 
or AL) by memory or register. 

If byte results, AL = quotient, AR 
= remainder. Tf word results, AX = 
quotient, DX = remainder 


divide (signed) accumulator (AX or 
AL) by memory or register - 
quotient and remainder stored as in 
DIV 


multioly (signed) memory or 
register by accumulator (AX or 
AL) ~ if byte, results in AH, AL. 
T£ word, results in DX, AX 


multiply (unsigned) memory or 
register bv accumulator (AX or 
AL) - results stored as in IMUL 


two's complement memory or 
register 


subtract (with borrow} memory or 
redister from register 


Subtract (with borrow) register 
from memory or register 


subtract (with borrow) immediate 
data from memory or redister 


subtract memory or register from 
register 


subtract reqister from memory or 


register 


subtract data constant from memory 
or register 
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Table 4-6. Logic and Shift Instructions 


AND reg,memireq perform bitwise logical "and" of a 
register and memory register 


AND mem|reg,reg perform bitwise Logical "and" of 
memory register and register 


AND mem|reg,numb perform bitwise logical "and" of 
memorv register and data constant 


NOT mem|reg form ones complement of memory 
Or register 


OR reg ,mem|req perform bitwise logical "or" of 
a register and memory register 


OR mem|reg,reg perform bitwise logical "or" of 
memory register and reqister 


OR mem|reg,numd perform bitwise logical "or" of 
memory register and data constant 


RCL. mem|reg,l rotate memory or register l bit 
left through carry flag 


through carry flag, number of bits 


ACL memireg,CL rotate memory or register left 
given by CL reqister 


RCA mem|req,l rotate memory or register 1 bit 
right through carry flag 
RCR mem! ced ,. CT rotate memory or register right 


through carry flag, number of bits 
Given Dv CL register 


| 
| 
| ROL mem|ceg,l1 rotate memory or register i bit 
| Left 
| x 
| ROL memireq,CL rotate memory or register left, 
number of bits given by CL reqistec 
ROR memireg,l rotate memory or reqister l bit 
tight 
ROR mem{reg,CL rotate memory or register right, 
number of bits given by CL register 
SAT, mem|req,l shife memorv or register i bit 
Tare Fs n low-order ro 





ALL Information Presented Here is Proorietary to Digital Research 


1 . 
tt KAA NU Ry A A AA a A Kk A e A AA AA A EE A A APP A e ER E E E EE E a 


CP/M-86 Programmer”’s Guide 4.3  Arithmeti. Logic, and Shift 


Table 4-6. (continued) 


SAL mem|reg,CL shift memory or register left, 
number of bits given by CL 
register, shift in low-order zero 
bits 














SAR memlreg,l shift memory or register l bit 
right, shift in high-order bits 
equal to the original high-order 
DIE 





mem|reg,CL shift memory or register right, 
number of bits given by CL 
reqister, snift in high-order bits 
equal to the original high-order 
bit 







mem|reg,l shift memory or register l bit 
left, shift in low-order zero bits 
- note that SHL is a different 
mnemonic for SAL 


| 

SEL mem!reg,CL shift memory or register left, 
number of bits given by CL 

| register, shift in low-order zero 
Bits - note that SHL is. a 
different mnemonic for SAL 
| 

| 

| 


Y) 
nj 


mem|req, 1. shift memory or register L 
right, shift in high-order 
bits 


N O 
F y 


shift memory or register right, 
number of bits given sv CL 
register, shift in nigh-order zero 
bits 


n 
bf 
zJ 
(D 
S 
t4 
(D 
A 
(1 
t? 


|L Xr *eg,memireg perform Ditwise logical "and" of a 
| register and memory or register 
- set condition flags but do not 
change destination 


1 

| 

RT memireqg,req perform bitwise logical "and" of 

| memory register and register - set 
| condition flags but do not 

change destination 


TEST mem|reg,numb perform bitwise logical "and" - 
test of memory register and data 
constant - set condition flags 

but do not change destination 
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4.3 Arithmetic, Logic, and Shift 


(continued) 


eed 


XOR reg,mem|reg 

XOR mem{reg,reg 

XOR memireq,numb 
4.4 String Instructions 


String instructions take one or two operands. 


perform bitwise logical "exclusive 
OR" of a register and memory or 
register 


perform bitwise logical "exclusive 
OR" of memory register and register 


perform bitwise Logical "exclusive 


OR" of memory reqister and data 
constant 


The operands 


specify only the operand type, determining whether overation is on 


bytes or words. 
addressed by the SI 


addressed 5y the DI register. 
Note that for string operations, destination 


used for addressing. 


operands addressed by DI must always 


(ES). 


If there are two operands, 
register 


the source operand is 
and the destination overand is 
The DI and SI registers are always 


reside in the Extra Sedment 


String Instructions 








| CMPS mem!req,mem!req 
LODS memireq 
i , 
MOVS mem!reg,memireg 
| SCAS memíreq 

STOS memi rag 


All 


Information Presented 
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hara 158 


subtract source from destinat 
affect flags, but do not ra 
result. 


transfer a byte or word from tne 
source overand to the accumulator. 
from source 
| 
| 


move l byte (or word) 


to destination. 


subtract destination operan 
accumulator (AX or AL), affe 
Flags, Sut do not return res 
or word from 


destination 


transfer a byte 
accumulator 
operand. 


to the 
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Entry. . Return 
— À — Nr —— M M À—H ag 


CL: 178 FUNCTION 23 AL: Return Code 


DX: FCB RENAME FILE 
Offset 





The Rename function uses the FCB addressed by DX to change all 
directory entries of the file specified by the file name in the 
first 16 bytes of the FCB to the file name in the second 16 bytes. 
It is the user”s responsibility to insure that the file names 
specified are valid CP/M unambiguous file names. The drive code 
"dr" at position 0 is used to select the drive, while the drive code 
for the new file name at position 16 of the FCB is ignored. Upon 
return, register AL is set to a value of zero if the rename was 
successful, and OFFE (255 decimal) if the first file name could not 
be found in the directory scan. 


Entry Return 
— ——— X A E mem EE an 
CL: 188 FUNCTION 24 Login Vector 
BX: Login RETURN LOGIN 
Vector VECTOR 





The login vector value returned by CP/M-86 is a L6-bit value in 
3X, where the least significant bit corresponds to the first drive 
A, and the high order bit corresponds to the sixteenth drive, 
labelled P. A "0" bit indicates that the drive is not on-line, 
while a "l" bit marks an drive that is actively on-line due to an 
explicit disk drive selection, or an implicit drive select caused by 
a file operation which specified a non-zero "dr" field. 


Return 
NS 
FUNCTION 25 AL: Current Disk 


RETURN CURRENT 
DISK 





Function 25 returns the currently selected default disk number 
in register AL. The disk numbers range from 0 through 15 
corresponding to drives A through P. 
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TM 


Table 4-8 defines prefixes ort. string '«Lastructions. A prefix 
repeats its string instruction the number of times contained in the 
CX register, which is decremented by L for each iteration. Prefix 
mnemonics precede the string instruction mnemonic in the statement in. 
line as shown in Section 2.8. .. . . 0. 5 


5 "able 4-8. Prefix Instructions 


repeat. until CX register is zero 


repeat until CX register is zero 
and. zero flag (ZF) is not zero 


equal to "REPZ" 


repeat until CX register is zero 
and zero flag (ZF) is zero 


equal to "REPNZ" 





4.5. Control Transfer Instructions 


There are four classes of control transfer instructions: 


calls, jumps, and returns 
conditional jumps 
iterational. control 

' interrupts 


ee? 9 


All control transfer instructions cause program execution to 
continue at some new location in memory, possibly in a new code 
Segment. The transfer may be absolute or depend unon a certain 
condition. Table 4-9 defines control transfer instructions. In the 
definitions of conditional jumps, "above" and "below" refer to tne 
relationship between unsigned values, and "greater than” and "less 
than” refer to the relationship between signed values. 
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co Entry return 
, * Cle LDH FUNCTION 29 | BX: R/O Vector Value 


GET READ/ONLY 
VECTOR 





Function 29 returns a bit vector in register BX which indicates 
drives which have the temporary read/onlv bit set. Similar to 
function 24, the least significant bit corresponds to drive A, while 
the most significant bit corresponds to drive P. The R/O bit is set 
either by an explicit call to function 28, or by the automatic 
software mechanisms within CP/M-86 which detect changed disks. 


Entry Return 
—— N 
Cle. LEA FUNCTION 30 AL: Return Code 


DAs FCS SET FILE 
Offset ATTRIBUTZS 





The Set File Attributes function allows programmatic 
manipulation of permanent indicators attached to files. Tn 
particular, the R/O, System and Archive attributes (tl^, t2^, and 
t3^) can be set or reset. The DX vair addresses a TTR containing a 
file name with che appropriate attributes set or reset. It is the 
user^s responsibility to insure that an ambiguous file name is not 
specified. Function 30 searches the default disk drive directory 
area for directory entries that belong to the current user number 
and that match the FCB specified name and tvoe fields. All matching 
directorv entries are updated to contain the selected indicators. 
Indicators fl^ through £4° are not presently used, but may be useful 
for applications programs, since they are not involved in the 
matching process during file open and close operations. Indicators 
€57 through £8^ are reserved for future system expansion. The 
currently assigned attributes are defined as follows: 


-l^: The R/O attribute indicates if set that the fil 
is in read/only status. BDOS will not allow writ 
commands to be issued to files in R/O status. 


t2°: The System attribute is referenced by the CP/M DIR 


utility. If set, DIR will not disolay the file in 
a directory display. 
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d m  'CP/M-86 Programmer^s Guide 4.5 Control Transfer Instructions 
"iz €&- ce pe able 4-9. (continued); -o 
ine JAE. tabs jump if. "not below" or "above or 
i | equal" ( CF*0 ) 
J3 labg jump if "below" or "not above or 
Ex equal" ( Ca L ) 
7 JBE lab8 jump- if "below or equal" or "not 
E l above" ((CF or ZF)=l ) 
| Zu JC _ Labs same as "JB" 
g JCXZ Labé jump to target label if CX register 
= is zero . 
ore) JE lab8 ~~ dump if "equal" or "zero" ( ZP=L ) 
JG | Labs jump if "not less or equal" or 
— = "greater" (((SF xor OF) or ZF)=0 ) 
m JGE lab8 . ! jump. if "not less” or "greater or 
" | equal” ((SF xor 0F)=0 ) 
so JL labs | jump if "less" or "not greater or 
equal" ((SF xor OF)»1 ) 
JLE lab8 jump if "less or equal" or "not 
greater” (((SF xor OF) or ZT*T)-1 ) 
JMP label jump to the target label | 
| 
E IMP mem | creqlé jump to location indicated by | 
contents of specified memory or | 
\ register | 
JMPF label jump to the target label possibly | 
ir another code segment 
l JMPS lab8 jump to the target label within +/- 
128 bytes from instruction 
E JNA labs same as "JBE" 
JNAE lab8 same as "JB" 
JNB lab8 same as "JAE" 
= JNBE Labs Same as "JA" 
JNC labs same as "JNB" 
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. Entry. - > aes ug fece | 5 - Return- 
————— [No ee n 
m oo ALLE “Abr Return Code- o -- 
DX: FCB READ RANDOM 
Offset 


The Read Random function is similar to the sequential file read 
operation of orevious releases, except that the read operation takes 
olace at a particular record number, selected by the 24-bit value 
constructed from the tnree byte field following the FCB (byte 
positions r0 at 33, rl at 34, and r2 at 35). Note that the sequence 
of 24 bits is stored with least significant byte first (r0), middle 
byte next (rl), and high byte last (r2). CP/M does not reference 
byte r2, except in computing the size of a file (function 35). Byte 
r2 must be zero, however, since a non-zero value indicates overflow 
past the end of file. | i 


Thus, the r0,rl byte pair is treated as a double-byte, or 
"word" value, which contains the record to read. This value ranges 
from 0 to 65535, providing access to any particular record of any 
size file. In order to access a file using the Read Random 
function, the base extent (extent 0) must first be opened. Although 
the base extent may or may not contain any allocated data, this 
ensures that the FCB is oroperly initialized for subsequent random 
access operations. The selected record number is then stored into 
the random record field (r0,rl), and the BDOS is called to read the 
record. Upon return from the call, register AL either contains an 
error code, as listed below, or the value 00 indicating the 
operation was successful. In the latter case, the buffer at the 
current DMA address contains the randomly accessed record. Note 
-hat contrary to the sequential read operation, the record number is 
not advanced. Thus, subsequent random read operations continue to 
read the same record. 


Upon each random read operation, the logical extent and current 
record values are automatically set. Thus, the file can be 
sequentially read or written, starting from the current randomly 
accessed cosition. Note, however, that in this case, the last 
randomly read record will be re-read as you switch from random mode 
to sequential read, and the last record will be re-written as you 
switch to a sequential write operation. You can, of course, simply 
advance the random record position following each random read or 
write to obtain the effect of a sequential I/O operation. 
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4.5 Control Transfer Instructions 


Table 4-9. (continued) 


H mox. c SERIE return ta the ceturn. address pushed Ez 
T by a previous CALL. instruction, 
3 "E ..increment stack cointer Sy 2. 


previous CALL, increment stack 
pointer by 2+numb 


RETF | return to the address pushed bv a 
previous CALLF instruction, 


RET ^ ‘numb © ^  peturm to the address oushed by a 
increment stack pointer Dy 4 


RETF numb return to the address pushed by a 
previous CALL? instruction, 
increment stack pointer by 4+numb 





on the address bus (ESC is used ov 
the 8087 numeric co-orocessor), 
"numb8" must be in the range 0 to 63 


SE 
| 
4.6 Processor Control Instructions 
Processor control instructions manipulate the flag registers. 
Moreover, some of these instructions can synchronize the 8086 CPU 
with external hardware. 
Table 4-10. Processor Control Instructions 
Results 
CLC clear CF flag 
CLD clear DF flag, causing string | 
Bee instructions to auto-increment the 
ooerand pointers 
x Chi clear IF flaq, disabling maskable 
E l external interrupts 
CMC complement CF flag 
ESC numb8 , mem | req do no operation other than compute 
the effective address and place it 
1 
] 
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Entry Pas | Return 
ESS a an 
BogsccpLS aW. FUNCTION 34 AL: Return Code 
DX: FCB WRITE RANDOM 

Offset 





The Write Random operation is initiated similar to the Read 
Random call, except that data is writcen to the disk from the 
current DMA address. Further, if the disk extent or data block 
which is the target of the write has not yet been allocated, the 
allocation is performed before the write operation continues. As in 
the Read Random operation, the random record number is not changed 
as a result of the write. The logical extent number and current 
record positions of the file control block are set to correspond to 
the random record which is being written. Sequential read or write 
Operations can commence following a random write, with the note that 
the currently addressed record is either read or rewritten again as 
the sequential operation begins. You can also simply advance che 
random record position following each write to get the effect of a 
sequential write operation. In particular, reading or writing the 
Last record of an extent in random mode does not cause an automatic 
extent switch as it does in sequential mode. 


In order to access a file using the Write Random function, tne 
base extent (extent 0) must first be opened. As in the Read Random 
Function, this ensures that the FCB is proverly initialized for 
subsequent random access operations. If the file is empty, a Make 
File function must be issued for the base extent. Although the base 
extent may or may not contain any allocated data, this ensures that 
the file is properly recorded in the directory, and is visible in 
DIR requests. 


Upon return from a Write Random cal’, register AL either 


contains an error code, as listed in Table 4-5 below, or the value 
00 indicating the overation was successful. 


Table 4-5. Punction 34 (WRITE RANDOM) Error Codes 


Ol (not returned by the Random Write command) 


No available data block - This condition is encountered 
when the Write Random command attempts to allocate a new 
data block to the file and no unallocated data 5locks 
exist on the selected disk drive. 
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S.L . Introduction to.Code-macros  . 

ASM-86 does nat support. traditional assembly-lanquage macros, 
but it does allow the user to define his own instructions bv using 
the.Code-macro directive. Uike traditional macros, code-macros are 
assembled wherever they-aopear im assembly lanquage code, but there 
the similarity ends. Traditional. macros contain assembly language 
instructions, but a code-macro contains only code-macro directives. 
Macros are usually defined in ehe user^s symbol table; ASM-86 code- 
macros: are defined im the assembler”s symbol table. À. macro 
simplifies using the same bjock of instructions over and over again 
throughout a program, but à code-macro sends a bit stream to the 
output file and in effect adds a new instruction to the assembler. 


Because ASM-86 treats a code-macro as an instruction, vou can 
invoke code-macros by using them as instructions in your proqram. 
The example below shows how MAC, an instruction defined by a code- 
macro, can be invoked. 


XCHG BX, WORDT 
MAC PARL,PAR2 
MUL  AX,WORD4 


* 
* 


e: 


Note that MAC accepts two operands. “hen MAC was defined, 
-hese two operands were also classified as to tvyve, size, and so on 
by defining MAC" S formal parameters. Thea names of formal varameters 
are not fixed. They are stand-ins which ace replaced by the names 
or values supplied as operands when the code-macro is invoked. Thus 
formal parameters "hold the 2olace" and indicate where and how the 
operands are to be used. 


The definition of a code-macro starts with a Line specifying 
its name and its formal parameters, if any: 


CodeMacro «name» (<formal parameter list>! 
where the optional. «formal parameter list» is defined: 


<formal name>:<svecifier letter»[«modifier Tetter>1Íí<range>! 
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Entry : o Return 
AAA ENE 5 
cocos KLS 24H.— -||. --FUNCTION 36 —[| - Randon: Record... 
ae o S Field Set 
DX: FCB SET- RANDOM [Tr di 
Ofíset RECORD 





The Set Random Record function causes the BDOS to automatically 
produce the random record position of the next record to be accessed 
from a file which has been read or written sequentially to a 
particular point. The function can be useful in two ways. 


First, it is often necessary to initially read and scan a 
sequential file to extract the positions of various "kev" fields. 
As each key is encountered, function 36 is called to compute the 
random record position for the data corresponding to this key. If 
the data unit size is 128 bytes, the resulting record position minus 
one is placed into a table with the key for later retrieval. After 
scanning the entire file and tabularizing the keys and their record 
numbers, you can move instantly to a particular keyed record by 
performing a random read using the corresponding random record 
number which was saved earlier. The scheme is easily generalized 
when variable record lengths are involved since the program need 
only store the buffer-relative byte position along with the key and 
record number in order to find the exact starting position of the 
keyed data at a later time. 


A second use of function 36 occurs when switching from a 
sequential read or write over to random read or write. A File is 
sequentially accessed to a particular point in the file, function 36 
is called which sets the record number, and subsequent random cead 
and write operations continue from the next record in the file. 


Entry Return 
—BÀ m — one P ARA: o 
CLs. 25H FUNCTION 37 AL: 00H 
DX: Drive RESET DRIVE 
Vector 





The Reset Drive function is used to programmatically restore 
specified drives to the reset state (a reset drive is not logged-in 
and is in read/write status). The passed parameter in register DX 
is a 16 bit vector of drives to be reset, where the least 
Significant bit corresponds to the first drive, A, and the high 
order bit corresponds to the sixteenth drive, labelled P. Bic 
values of "1" indicate that the specified drive is to be reset. 


In order to maintain compatibility with MP/M, CP/M returns a 
zero value for this function. 
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CP/M-86 Programmers Guide 5.2 Specifiers 


=: Every formal parameter- must have 3 specifier letter that 
indicates what type of operand is needed to match the formal 
parameter. Table 5-1 defines the eight possible specifier tetters. 


rn a eee e "m am. o — t 


Table 5-1.  Code-macro Operand Specifiers 


A Accumulator register, AX or AL. 
C | Code, a label expression only. 
l o ccm Data, a number to be used as an 

immediate value. 

E Effective address, either an M 
(memory address) or an R (register). 

M Memory address. This can be either 
a variable or a bracketed register 
expression. 

R A general register only. 

S . . -Segment register only. 

X A direct memory reference. 


35.3 Modifiers 


The optional modifier letter is a further requirement on ihe 
operand. The meaning cf the modifier letter depends on the tvpe of 
the operand. For variables, the modifier requires the operand to he 
of type: "b" for byte, "w" for word, "d" for double-word and "sb" 
for signed byte. For numbers, the modifiers require the number to 
be of a certain size: "b" for -256 to 255 and "w" for other numbers. 
Table 5-2 summarizes code-macro modifiers. 
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B E -1 5.5.4 RELB and RELW 


-' These directives, used in IP-celative branch instructions, 
instruct the assembler to generate displacement between the end of 
the instruction and the label which is supolied as an operand. REL3 
generates one byte and RELW two bvtes of displacement. The 
directives the following forms: 


RELS «form name» 
RELW «form name» 


where «form name» is the name of a formal voarameter with a "C" 
(code) specifier. For example: 


- - -- no =- -= - be ——— A ———— ——. A cs 


- CadeMacro LOOP place:Cb 


"DB UE 29 
RELB place 
E EndM- 00 ee LEY MEE JE W^ i we 


5.5.5 DB, DW and DD 


These directives differ from those which occur outside of code- 
macros. The form of the directives are: 


DB «form name> | NUMBERB 
DW «form name» | NUMBERW 
AD «form name> 


where NUMBERB is a single-byte number, NUMRERW is a two-Dvte number, 
and <form name> is a name of a formal parameter. for example: 


CodeMacro XOR dst:Ew,src:Db5 


SEGFIX dst 

na 31H 

MODRM 5,dst 

DW srce 
y EndM 
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CL: 33H53 | FUNCTION 51 
“Dx: Base) C SET DMA BASE 





| Address: ` 


Function 51 sets the base register for subsequent DMA 
transfers. The word parameter in DX is a paragraph address and is 
used with the DMA offset to specify the address of a 128 byte buffer 
area to be used in the disk read and write functions. Note that 
upon initial program loading, the default DMA base is set to the 
address of the user^s data segment (the initial value of DS) and the 
DMA offset is set to 00808, which provides access to the default 
buffer in the base Dage. 


Entry Retutn 
rl C a 
CL: 34H FUNCTION 52 BX: DMA Offset 


GET DMA BASE ES: DMA Seqment 





Function 52 returns the current DMA Base Segment address in ES, 
with the current DMA Offset in DX. 


4.4 BDOS Memory Management and Load 


Memory is allocated in two distinct ways under CP/M-86. The 
first is through a static allocation map, located within the BIOS, 
that defines the physical memory which is available on the nost 
system. In this way, it is possible to overate CP/M-86 in a memory 
configuration which is a mixture of up to eight non-contiguous areas 
of RAM or ROM, along with reserved, missing, or faulty memorv 
regions. Ina simple RAM-based system with contiguous memory, the 
static map defines a single region, usually starting at the end ot 
the BIOS and extending up to the end of available memorv. 


Once memory is physically mapped in this manner, CP/M-86 
performs the second level of dynamic allocation to support transient 
program loading and execution. CP/M-86 allows dynamic allocation of 
memory into, again, eight regions. A request tor allocation takes 
place either implicitly, tRrough a program load operation, Or 
explicitly through the BDOS calls given in this section. Programs 
themselves are loaded in two ways: through a command entered at the 
CCP level, or through the BDOS Program Load operation (function 59). 
Multiple programs can be loaded at the CCP level, as long as each 
orogram executes a System Reset (Function 0) and remains in memorv 
(DL = 018). Multiple programs of this type onlv receive control by 
intercepting interrupts, and thus under normal circumstances there 
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-- Code-macro directives define the bit pattern and make further 
requirements on how the operand: is to: be: treated. Directives are 
reserved words, and those that appear to duolicate- assembly lanquage 
instructions have different meanings within a code-macro definition. 
Only the nine directives- defined here are legaT within code-macro 
definitions. ie Pude CE A ty aS E: 


5.5.1 SEGFIX 


If SEGFIX is present, it instructs: the assembjer to determine 
whether a segment-override prefix byte is: needed to access a qiven 
memory location. If so, it is output as the first bvte of the 
instruction. If not, no action is. taken.  SEGFIX takes the form: 


SEGFIX «forma! name> i 

where- «formal name> is the- name of a formal parameter which rep- 
resents. the memory address. Because it represents a memory address, 
the formal varameter must have one of the specifiers E, M or X. 


$.5.2 NOSEGFIX 


Use-NOSEGTIX for operands in instructions that must use the ES 
register for that overand. This applies only to the destination 
operand af these instructions: CMPS, MOVS, SCAS, STOS. The form of 


i — M A - mma — ee eee ee 


NOSEGF TX seqreg,«formname» 


where segreg is one of the segment registers ES, CS, SS, or NS and 
<formname> is the name of the memory-address formal varameter, which 
must have a specifier E, M, or X. No code is generated from this 
directive, but an error check is performed. The following is an 
example of NOSEGFIX use: 


CodeMacro MOVS si Dptr:Ew,di ptr:Ew 
NOSEGFIX ES,di ptr 


SEGFIX | si otr 
DB 0A3H 
ZndM 
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A transient program may release a vortion of a region, allowing 


the released portion to be assigned on the next allocation request. 


The released portion must, however, be at the beginning or end of 
the region. Suppose, for example, the program in region R above 
receives 800R paragraphs at paragraph location 1008 following its 
first allocation request as shown in Figure 4-2 below. 


l000R: 


Length = 
80008 Region C 





Figure 4-2. Example Memory Region 


Suppose further that region D is then allocated. The last 200H 
paragraphs in region C can be returned without affecting region D dy 
releasing the 200H paragraphs beginning at paragraoh base 700R, 
resulting in the memory arrangement shown in Figure 4-3. 





10008: 
Length = 
60008 Region C 
Length = 70008: | //////////7/ 
2000H eE 


Pigure 4-3. Example Memory Regions 


The region beginning at paragraph address 700H is now available for 
allocation in the next request. Note that a memory request will 
fail if eight memory regions have already been allocated. Normally, 
if all program units can reside in a contiguous region, the system 
allocates only one region. 


All Information Presented Here is 


"0 


roorietary to Digital Research 


. . * Smee ER - A ee ài we - =- — 
. > — tr Ao maa “oe —4 A A — 
. a a m a-re llre rhan € cl € e an Nc 


=- ae? fnm sa M bo RN . A 
o keel. TE meee 0 i 7 LIT 
E | oia. CP/M-86 Proqrammer^s Guide 5.5  Code-macro Directives 


aoe uud "m ES ER = 


— m, € p ———— ———— 


CCE) 25-5. RELS and RELW 


= - These directives, used in IP-celative branch instructions, 


instruct the assembler to generate displacement between the end of 
E the instruction and the label which is supplied as an operand. RELS 
MN generates one byte and RELW two ovtss of displacement. The 


directives the fol'owinq forms: 


RELE <form name> 
RELW <form name> 


where <form name> is the name of a formal carameter with a "C" 
o (code) specifier. For example: 


- CodeMacro LOOP place:Cb 


= "DB 02H 
RELB place 

je | e EndM- ki ES rons T =- = ES 
» 5.5.5 DB, DW and DD l 


These directives diffar from those which occur outside of code- 
macros. The form of the directives are: 


- DB «form name» | NUMBERB 
DW «form name» | NUMBERW 
= ba DD <form name> 


where NUMBERB is a single-byte number, NUMBERW is a two-ovte number, 
and <form name> is a name of a formal parameter. For example: 


CodeMacro XOR dst:Ew,src:Db 


» SEGFIX dst 
nB 31H 
MODRM 6,dst 
- DW sre 
E D» EndM 


^3 
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CP/M-86 System Guide 4.4 BDOS Memory Management and” Load 


Entry Return 
2 A ndl A in 
CL: 378 FUNCTION 55 AL: Return Code - 


DX: Offset ALLOC MEM 
= of MCB 





The allocate memory function allocates a memory area according 
to the MCB addressed by DX. The allocation request size is obtained 
€rom M-Length. Function 35 returns in the user's MCB the base 
paragraph address of the allocated region. Register AL contains a 
00H if the request was successful and a OFFH if the memorv could not 
be allocated. 





Entry return 
CL: 38H FUNCTION 56 AL: Return Code 
DX: Offset ALLOC ABS MEM 

of MCB 


The allocate absolute memory function allocates a memory area 
according to the MCB addressed by DX. The allocation request size 
ig obtained from M-Length and the absolute base address From M-s8ase. 
Register AL contains a 008 if the request was successful and a OF TR 


A 


if the memory could not be allocated. 


Return 





Function 37 is used to release memory areas allocated to the 
program. The value of the M-Ext field controls the operation of 
this function: if M-Ext = OFFH then all memory areas allocated by 
“he calling program are released. Otherwise, the memory area of 
Length M-Length at location M-Base given in the MCB addressed by DX 

S is released (the M-Ext field-should be set to 00H in this case). ÁS 
described above, either an entire allocated region must be released, 
or the end of a region must be released: the middle section cannot 
be returned under CP/M-86. 
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CP/M-36 Proctammec's Guide 5,5  Code-macro nirectives 


The firat five bits of the bvte have the value 9H. TÉ the 
remaining bit& are Zero, the hex value of the bvte will be 48H. If 
-he instruction: l 


—a 


r 


is assembled and MX has a value of 2H, then 48H + 2H = 4A, which is 
the final value of the byte for execution. Tf this sequence had 
been present in the definition: | 


DEC = - DX 


nBaIT 5(9H),3(dst(1)) 


then the register number would have been shifted right once and the 
result would had been 48H + 1% = 49H, which is erroneous. 
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E 6.1 DDT-86 Operation ' ^" ^ ^-^ 


The DDT-86 ™ program allows the user to test and debug programs 
es interactively im a CB/M-86 environment. The reader should be 
: familiar with the 8086 processor, ASM-86 and the C?/M-8^ operatinq 

system as described in the CP/M-86 Svstem Guide. 


— U x - - - 


6.l.l--Invoking-DDT-86. -> ----.- e oo. > 


Invoke DDT-86 by entering one of the followina commands: 


e DDT86 TL D MD as pe. A. 
o | DNT86. filename 


EN The first command simplv loads and executes DDT-86. After 
| displaying its sign-on message and prompt character, - , DDT-86 is 
ready to accept operator commands... The second command is similar to 
PS the first, except that after DDT-86 is loaded it loads the file 
Specified by filename. I€ the file tvpe is omitted from filename, 
.CMD is assumed. Note that MDT-86 cannot load a file of type .H86. 
The second form of the invoking command is equivalent to the 
sequence: 


A>DDT86 


DDT86 x.x 
-Efilename 


m At this point, the program chat was loaded is readv for execution. 


V 7 


6.1.2 DDT-86 Command. Conventions 


When DDT-86 is ready to accept a command, it prompts -ae 
operator with a hyphen, -. In response, the operator can type a 
command line or a CONTROL-C (represented in this chapter as ÍC) to 
end the debugging session (see Section 8.1.4). A command line mav 
have up to 64 characters, and must be terminated with a carriage 
return. While entering the command, use standard CP/M line-editing 
functions (TX, TH, ÎR, etc.) to correct tvoinq errors. DDT-86 does 
not process the command line until a carriage return is entered. 


The first character of each command line determines the command 


action. Table 6-1 summarizes DDT-86 commands.  nDT-85 commands are 
z defined individually in Section 5.2. 
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C?/M-86 Svstem Guide 5.1 Organization of the SIOS 


As described in the following sections, the CCP and BDOS are 
supplied with CP/M-86 in hex file form as CPM.H86. In order to 
implement CP/M-86 on non-standard hardware, vou must create a BIOS 
which performs the functions listed below and concatenate the 
resulting hex file to the end of the CPM.H86 file. The GENCMD 
utility is then used to produce the CPM.SYS file for subsequent load 
by the cold start loader. The cold start loader that loads the 
CPM.SYS file into memory contains a simplified form of the BIOS, 
called the LDBIOS (Loader BIOS). It loads CPM.SYS into memory at 
the location defined in the CPM.SYS header (usually 04005). The 
procedure to follow in construction and execution of the cold start 
loader and the CP/M-86 Loader is given in a later section. 


Appendix D contains a listing of the standard CP/M-86 BIOS for 
the Intel SBC 86/12 system using the Intel 204 Controller Board. 
Appendix E shows a sample “skeletal” BIOS called CBIOS that contains 
the essential elements with the device drivers removed. You may 
wish to review these listings in order to determine the overall 
Structure of the BIOS. 


5.2 The BIOS Jump Vector 


Entry to the BIOS is through a "jump vector" located at offset 
25008 from the base of the operating system. The jump vector is a 
sequence of 21 three-bvte jump instructions which transfer program 
control to the individual BIOS entry points. Although some non- 
essential BIOS subroutines may contain a single ceturn (RET) 
instruction, the corresponding jump vector element must be present 
in the order shown below in Table 5-1. An example of a BIOS iumo 
vector may be found in Appendix D, in the standard CP/M-86 BIOS 
listing. 


Parameters for the individual subroutines in the BIOS are 
passed in the CX and DX registers, when required. CX receives the 
first parameter; DX is used for a second argument. Return values 
are passed in the registers acco ding to type: Byte values are 
returned in AL. “Word values (16 bits) are returned in 3X. Specific 
varameters and returned values are described with each subroutine. 
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CP/M-86 Programmer’s Guide 6.1 nDT-86 Coeration 


ap we — - - = 5 


sop &.1. 4: Terminat inq DDT-86 A A) TTP aee i'i. fs mci road po 
` o asta Terminate. DnnT-86 by . typing. a fC -in- response -to- the- hyphen. 
prompt. This returns control to the CCP. Note that CB/M-86- does - 


E not have the SAVE facilitv found in CP/M for 8-bit machines. Thus 


if DOT-86 is used to patch a file, write the file to disk using the 
' command before exiting DDT-86. l 


6.1.5 DDT-36 Operation with Interrupts 


DDT-86 operates with interruots enabled or disabled, and 
P preserves the interrupt state of the program being executed under 
DDT-86. When DDT-85. has. control of the CP, either. when it is 
initially invoked, or when it reqains control from the program being 
tested, the condition of the interrupt flag is the same as it was 
when DDT-86 was. invoked, exceot for a few critical regions where 
¿a interrupts are disabled. While the program being tested has contro} 
of the CPU, the users CPU state determines the state of the 
interrupt flag.  . | 


y 


: 6.2. DDT-86 Commands 


| This section defines DDT-86 commands and their arguments. NDT- 
86 commands qive the user control of program execution and allow the 
user to disolay and modify system memory and the CPU state. 


- mær ~ P a. 


6.2.1 The A (Assemble) Command 


The A command assembies 3086 mnemonics directly into memory. 
The form is: 


As 


where s is the 20-bit address where assembly is to start. "DT-36 
responds to the A command by disolaying the address of the memory 

E location where assembly is to beqin. At this point tne operator 
enters assembly language statements as described in Section 4 on 
Assembly Language Syntax. When a statement-is entered, DDT-86 
converts it to machine code, places the value(s) in memorv, and 
displays the address of the next available memory location. This 
process continues until the user enters a blank line or a line 
containing only a period. 


DDT-86 responds to invalid statements by displaving a question 
mark, ? , and redisc laying che current assembly address. 


y 
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CP/M-86 System Guide 5.3 Simmte Periohera! Devices 


Table 5-2. CP/M-86 Logical Device Characteristics 






Characteristics — 








CONSOLE The principal interactive console which 
communicates with the operator, accessed through 
CONST, CONIN, and CONOUT. Typically, the CONSOLE 
is a device such as a CRT or Teletype. 














The principal listina device, 1f it exists on your 
system, which is usually a hard-conv device, such 
as a printer or Teletvoe. 


PUNCH The principal tape punching device, if it exists, 
which is normally a high-sveed paper Lane ounch or 
Teletype. 







READER The brincipal tape reading device, 
simple optical reader or telecyoe. 


such as a 





Note that a single periohera! can be assigned as the LIST, 
PUNCH, and READER device simultaneously. Tf no oSerioheral device is 
assigned as the LIST, PUNCH, or READER device, your CBIOS should 
give an aporooriate error message so that the svstem does not "hang" 
if the device is accessed by PIP or some other transient program. 
Alternately, the PUNCH and LIST subroutines can iust simp!v return, 
and the READER subroutine can return with a LAH (ctl-7) in req A to 
indicate immediate end-of-file. 


For added flexibility, vou can optionally implement the 
"IOBYTÉ" function which allows reassignment of ohysical and logical 
devices. The TOBYTE function creates a maooina of lodical to 
ohysical devices which can De altered during CP/M-86 orocessing (see 
the STAT command). The definition of the IOBYTE function 
corresponds to the Intel standard as follows: a single location in 
the BIOS is maintained, called IOBYTE, which defines the Logical to 
ohysical device mapping which is in effect at a oarticular time. 
The mapping is cerformed by solitting the IOBYTE into four distinct 
fields of two bits each, called the CONSOLE, READER, PITNCH, and LIST 
fields, as shown below: 


most significant least significant 


LOSS PUNCH READER CONSOLZ 





bits 6,7 bits 4,5 bits 2,3 bits 0,1 
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An € command releases any blocks of memory allocated bv any 


previous E or R commands or by programs executed under nyr-86,. Thus. 


only one file at a time mav be loaded for execution. 


When the load is complete, DDT-86 displays the start and end 
addresses of each sedment in the file loaded. "se the V command to 
redisolav this information at a later time. 


If the file does not exist or cannot be successfully loaded in 
the available memory, MNT-86 issues an error message. 


6.2.4 The P (Fill) Command ] 
The F command fills an area of memory with a byte or word 
constant. The forms. are: 


Fs, f,b 
"Ys E ew. 


where s is a 20-bit starting address of the block to be filled, and 
€ is a 16-bit offset of the final byte of the block within the 
segment specified in s. 


In response to the first form, nDT-86 stores the 3-bit value 5 
in locations s througtr f. In the second form, the l6-bi- value w is 
stored in locations s through £ in standard form, low 8 bits first 
followed by high 8 bits. 


If s is greater than £ or the value b is greater than 155. DDT- 
86 resoonds with a question mark. DDT-846 issues an error message if 
the value stored in memory cannot be read back successfully, 
indicating faulty or non-existent RAM at the location indicated. 


6.2.5 The G (Go) Command 


The G command transfers control to the program being tested, 
and optionally sets one Or two breakpoints. The forms are: 


G 

G,bl 
G,ol,b4 
Gs 

Gs,bl 
Gs,bl,52 


where s is a 20-bit address where orogram execution is to start, and 
bl and b2 are 20-bit addresses of breaknoints. If no segment value 


is supplied for anv of these three addresses, the segment value 
defaults to the contents of the CS register. 
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S.4 BIOS Subroutine Entry Points 


The actions which must take place upon entry to each BIOS 
Subroutine are given below. It should be noted that disk I/O is 
always performed through a sequence of calls on the various ‘disk 
access subroutines. These setup the disk number to access, the 
track and sector on a particular disk, and the direct memory access 
(DMA) offset and seqment addresses involved in the I/O operation. 
After all these parameters have been setup, a call is made to the 
READ or WRITE function to perform the actual I/O operation. Note 
that there is often a single call to SELDSK to select a disk drive, 
followed by a number of read or write operations to the selected 
disk before selecting aise drive for subsequent overations. 
Similarly, there may be a call to set the DMA seqment base and a 
call to set the DMA offset E bv several calis which read or 
write from the selected DMA address before the DMA address is 
changed. The track and sector subroutines are always called before 
the READ or WRITE operations are performed. 


The READ and. WRITE subroutines should perform several retries 
(10 is standard) before reporting the error condition to the BDOS. 
The HOME subroutine mav or may not actually perform the track 00 
seek, depending upon your controller characteristics; the important 
point is that track 00 has been selected for the next overation, and 
is often treated in exactly the same manner as SET™RK with a 
Sarameter ot 00. 


Table 5-4. BIOS Subroutine Summary 


IET |. meserisRiom OOO 


INIT This subroutine is called directly by the CP/M-36 
loader after the CPM.SYS file has been read into 
memory. The procedure is responsible for anv 
hardware initialization not oerformed by the 
bootstrap loader, setting initial values for 3105 
variables (including IOBYTE), printing a sian-on 
message, and initializing the interruot vector to 
point to the BDOS offset (03118) and base. “When 
ehis routine completes, it jumos to the CCP 
offset (0H). All seqment registers should oe 
initialized at this time to contain the base of 
“he operating system. 


WBOOT This subroutine is called whenever a crodram 
terminates by performing a BDOS function 30 call. 
Some re-initialization of the hardware or 
software may occur here. When this routine 
completes, it jumps directly to the warm start 
entry point of the CCD (06H). 


CONST Sample the status of the currently assigned 
console device and return OFFH in register AL if 


a character is ready to read, and 00H in reqister 
AL if no console characters are ready. 
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> 


“ro TE a fite has been loaded with the. E command, nDT-86 covies the 


2 .- L 
i 
: . 
` go € 
b... 1 
* al 
a 7 


file control block and command buffer from the base page of DDT-86 
to the base jage of the program loaded. | The !ocation-o£ DnT-86"s 
base page can be obtained from the 55 register in the users CPU 
state when DDT-86 is invoked. The location of the base page of a 
program loaded with the = command is the value displaved for DS upon 
completion of the program load. 


6.2.8 The L (List) Command 


The L command lists the contents of memory in assembly 
Language. The forms are: ' 


Ls . E "E ; 2 , l A ta, X 
La; É 


where s is a 20-bit address where the List is to start, and € is a 
l6-bit offset within the segment specified in s where the list is to 
finish. 


The first form Lists twelve lines. of disassembied machine code 
from the current list address. The second form sets the list 
address to s and then lists twelve lines of code. The last form 
Lists disassembled code from s through ©. In all three cases, the 
list address is set to the next unlisted location in 2reparation for 
a subsequent L command. When DDT-86 cegains control ¿rom a orogram 
being tested (see G, T and T commands), the list address is set to 
the current value of the CS and IP registers. 


Long displays mav be aborted by typing anv key during the list 
process. Or, anter ÎS to- halt the disolay temporarily. 


The svntax of the assembly lanquage statements produced by the 
L command is described in Section 4. 


6.2.9 The M (Move) Command 


The M command moves a block of data values from one area of 


‘memory to another. The form is: 


Ms,f,d 


where s is the 20-bit starting address of the block to be moved, f 
is the offset of the final byte to be moved within the seqment 
described 5v s, and d is the 20-bit address of the first byte of the 
area to receive the data. Tf the segment is not specified in d, the 
same value is used that was used for s. Note that if d is between sS 


and £, part of the block being moved will oe overwritten before it 
is moved, because data is transferred starting from location s. 
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- Xo. Table 5-4. (continued) 


— MÀ « —o— MÀ n €. € M — — 9 A — € 


 Subroutine 





 SELDSK Select the disk drive given bv redister CL for 
further operations, where register CL contains 0 
for drive A, l for drive B, and so on uo to i5 
for drive P (the standard CP/M-86 distribution 
version suooocts two drives). On each disk 
select, SELDSK must return in BX the base address 
of the selected drive^s Disk Parameter Header. 
Por standard floopy disk drives, the content of 
* the header and associated tables does not change. 
The sample BIOS included with CP/M-86 called 
CBIOS contains an example orogram segment that 
performs the SELDSK function. If there is an 
attempt to select a non-existent drive, SELDSK 
returns BX=0000R as an error indicator. Although 
SFELDSK must return the header address on each 
call, it is advisable to vostpone the actual 
physical disk select overation until an TAO 
function (seek, read or write) is verformed. 
This ts due to the fact that disk select 
operations may take place without a subsequent 
disk operation and thus disk access may be 
substantially slower using some disk controllers. 
On entry to SELDSK it is possible to determine 
whether it is the first time the soecified disk 
has been selected. Register D^, bit 0 (least 
significant bit) is a zero if the drive has not 
been previously selected. This information is of 
interest in systems which read configuration 
information from the disk in order to set un a 
dynamic disk definition table, 


SZTTRK Register CX contains the track number for 
subsequent disk accesses on the currently 
selected drive. You can choose to seek the 
selected track at this time, or delay the seek 
until the next read or write actually occurs. 
Register CX can take on values in the range 0-76 
corresvonding to valid track numbers for standard 
floppy disk drives, and 0-565535 for non-standard 
disk subsystems. 


SETSEC Register CX contains the translated sector number 
for subsequent disk accesses on tne currently 
selected drive (see SECTRAN, below). You Can 
choose to send this information to the controller 
at this point, oc instead delay sector selection 
until a read or write operation occurs. 
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DDT-86. issues an error message if the value stored in memorv 


RAM at the location indicated. 


6.2.12 The T (Trace) Command 


The T command traces orogram execution for l to OFFFFH program 
steps. The forms are: | 


mq 
Tn 
TS 
TSN | " 3 x 


where m is the number of instructions to execute before returnina 
control to the console. 


Sefore DDT-86 traces an instructiom, it aisplavs the current 
CPU state and the disassembled instruction. In the first two forms, 
the segment registers are not displayed, which allows the entire CPU 
state to be diSBlayed on one line. The next two forms are analogous 
to the first two, except that all the registers are displaved, which 


forces the disassembled instruction to be displayed on the next line 


as in the X command. 


In all of the forms, control transfers to the program under 
test at the address indicated by the CS and I? registers. If n is 
not specified, one instruction is executed. Otherwise DDT-86 
executes n instructions, displaying the CPU state before each step. 
A long trace may be aborted before n steps have been executed oy 
typing any character at the console. 


After a T command, the List address used in the L command is 
set to the address of the next instruction to be executed. 


Note that DDT-86 does .not trace through a BDOS interrupt 
instruction, since DDT-86 itself makes BDOS calls and the 3D0S is 
not reentrant. Instead, the entire sequence of instructions trom 
the BDOS interrupt through the return from BDOS is treated as one 
traced instruction. 
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~e@annot be read back successfully, indicating faulty or non-existent 


CP/M-86 System Guide 5.4 BIOS Subroutine Entry Points 


Table: 5-4.. (continued) 


Subroutine 





SECTRAN Performs logical to physical sector translation 
to improve the overall response of CP/M-86. 
Standard CP/M-86 systems are shipped with a “skew 
factor" of 6, where five physical sectors are 
skipped between sequential read or write 
operations. This skew factor allows enough time 
between sectors for most orograms to load their 
buffers without missing the next sector. Tn 
computer systems that use fast processors, memory 
and disk subsystems, the skew factor may be 
changed to improve overall response. Note, 
however, that you should maintain a single 
density IBM compatible version of CP/M-86 for 
information transfer into and out of your 
computer system, using a skew factor of 6. In 
general, SECTRAN receives a logical sector number 
in CX. This logical sector number may range from 
0 to the number of sectors -l. Sectran also 
receives a translate table offset in D&. The 
sector number is used as an index into the 
translate table, with the resulting physical 
sector number in BX. For standard systems, the 
tables and indexing code is orovided in the CBIOS 
and need not be changed. I£ DX = 0000H no 
translation takes place, and CX is simply copied 
to BX before returning. Otherwise, SECTRAN 
computes and returns the translated sector number 
in BX. Note that SECTRAN is called when no 
translation is specified in the Disk Parameter 


Header. 
SETDMAB Register CX contains the seqment base ror 
subsequent DMA read or write operations. The 


BIOS will use the 128 byte buffer at the memorv 
address determined by the DMA base and the DMA 
offset during read and write operations. 


GETSEGB Returns the address of the Memory Region Table 
(MRT) in BX. The returned value is the offset of 
the table relative to the start of the operating 
system. The table defines the location and 
extent of physical memory which is available for 
transient programs. 
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CP/M-86 Programmer^s Guide : ' 6.2 DDT-86 Commands 
M ae eat Gey. ou Kn DAC 


DOW. wea œ - 
- dz- R 09, b. AE | AN me 


— > e a a TU y. : ee re r sm -- 


In the second form where s and f are specified as 20-bit 


-addresses; the-low- four bits- of s-are- ignored. : Thus the block being 


written must always startnom a paragraph boundary. 
E To. $ AS y ' > 2 Sd -— : 
If. a- file by: the. names specified in the W command already 
exists, DDT-86 deletes it before writing. a new file. 


po - A s -r m 
- . 
LP 


6.2.16 The X (Examine CPU State) Command: 


The X command allows the operator to examine and alter the CPU 
state of the orogram under test. The forms are: 


e me M eed 


. e - S - i T — œ =- ETE o. . d 


~~. — 


x 5 
. . l 
xr Et oap meo = m a. ——— o0 d - - -= sr o P o „i AT e ls O ae hear nl A XA ew -— = 
- - - 
xf . Ta - 
- 


wee oe 


where r is the name of one of the 8086 CPU registers and f is the 
abbreviation of one of the CPU flags. The first form displays the 
CPU state in the format: | oo 


AX BX CX — 2» 99 ES IP 
——— XXXX XXXX XXXX . +» =n XXXX XXXX XXXX 
-«instruetion> 2 0 02 500 0 cocos 7 t 





The nine hyphens at the beginning of the line indicate the state ot 
the nine CPU flags. Zach position may be either a hyphen, 
indicating that the corresponding flag is not set (0), or a one- 
character abbreviation of the flag name, indicating that the flag is 
set (1). The abbreviations of the flag names are shown in Table 2- 
l. cinstruction» is the disassembled instructiom at the next 
Location to be executed, which is indicated. by the CS and I? 
registers. 


Table 6-2. Flag Name Abbreviations 


Overflow E 
Direction 
Interrupt Enable 
Trap 

Sign 

Zero 

Auxiliary Carry 
Parity 

Carry 






J Q 


AVrRAUW AH 
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47 | 
AAN ^ The second tvoe of command vertains: to the data seqment: N 
P^ M 


(Display), F (Fill), M (Move) and S (Set). These commands use the 
| “internal type-2 seament value if no segment value is specified in 
P the command. 


- — =- k 


-- When invoked, DDT-86 sets the tyoe-2 seqment value to 0, and 
changes it when one of the “sllowing actions is taken: 


-— 


e When a file is loaded bw am E command, nDT-86 sets the tvoe-2 
segment value to the value of the MS reqister. 


| | € When a file is read bv an R command, DOT-86 sets the type-2 
| segment value to the Sase segment where the file was read. 


e. When an X command chances the value of the NS register, MNT-86 
me changes the tvoe-2 secment value to the new value of the nS 


7 register. 
E ) e When DDT-86 regains comzrol from a user program after aG, T or 
Y command, it sets the tyne-2 segment value to tne value ot the 


DS register. 


C 


e When a segment value is specified explicitly in an D, PF, Mor $ 
command, DDT-86 sets she type-2 seqment value to the segment 
value specified. 

When evaluating programs that use identical values in the CS 
and DS registers, all DnT-88 commands default to the same segment 
value unless explicitly overrijden. 


Note that the G (Go) command does not fall into either ground, 
since it defaults to the CS register. 


paar € )J 
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CP/M-86 Svstem Guide 6.1 Disk Parameter Table Format 


Table 6-1. (continued) 


Element Description 


DIRBUF Offset of a 128 byte scratchpad area for directory 
operations within BDOS. All DPH^s address the same 
scratchpad area. 


Offset of a disk parameter block for this drive. 
Drives with identical disk characteristics address the 
Same disk parameter block. 


Offset of a scratchoad area used for software check FOC 


changed disks. This offset is different for each DPF, 


Offset of a scratchoad area used by the BDOS to keeo 
disk storage allocation information. This offset is 
different for each DPH. 





Given n disk drives, the DBH" S are arranged in a table whose tirso 
row of 16 bvtes corresvonds to drive 0, with the last row 
corresponding to drive n-l. The table thus appears as 

















DPBASE 
: 
(and so-forth through) 


where the label DPBASE defines the offset of the DPH table relative 
“o the beginning of the operating system. 


A responsibility of the SELDSX subroutine, defined in -the 
previous section, is to return the offset of the DH from the 
beginning of the ooerating system for the selected drive. The 
following sequence of operations returns the table offset, with a 
0000H returned i? the selected drive does not exist. 
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| C. ^^-86 Programmer”s Guide 6.4 Assembly Lanquade Syntax 


6. 4- “Assembly Banguage anas for A and. L Commands 
Ta Saa , the syntax of the lee Lanquace statements used 
Several 


— 


Xx minor exceptions are listed below. 


€. ODT-86 assumes that all numeric values entered are hexadecimal. 


e Up to three prefixes (LOCK, repeat, seqment override) mav 
appear in one statement, Sut they all must orecede the opcode 
of the statement. Alternatelv, a prefix may be entered on a 

— line by itself. "m 


- -m = = +. . . ———X — A K e 


e The distinction between bvte and word string instructions is 
. made as follows: 


A byte word 
= LODSB LODSW 
STOSB STOSW 
ra SCASB SCASW 
" MOVSE8  MOVSW- l) 
CMPSB CMD S 
- e The mnemonics for near and far control transfer instructions 
are as follows: 
s short normal  £ar 
~~ JMPS JMP JMPF 
E CALL CALLF 
RET RETF 


e. If the operand of a CALL? or JMPF instruction is a 20-bit 
absolute address, it is entered in the form: 


= 3555 790000 


where ssss is the segment and oooo is the offset of the 


" address. 


eM 
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Table 6-2. (continued) 


Definition 


determine reserved directorv blocks. 


is the size of the directory check vector 


is the number of reserved tracks at the beginning of 
the (logical) disk. 





Although these table values are produced automatically by GENDEF, LE 
is worthwhile reviewing the derivation of each field so that the 
values may be cross-checked when necessary. The values of BSH and 
BIM determine (implicitly) the data allocation size BLS, which is 
not an entry in the disk parameter block. Given that you have 
selected a value for BLS, the values of BSH and BLM are shown in 
Table 6-3 below, where all values are in decimal. 


Table 6-3.  BSH and BLM Values for Selected BLS 


1,024 
2,048 
4,096 
8,192 
16,384 





The value of EXM depends upon both the BLS and whether the DSM value 
is less than 256 or greater than 255, as shown in the following 
table. 


Table 6-4. Maximum EXM Values 


DSM < 256 DSM > 255 





The value of DSM is the maximum data block number supported oy 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of 
course, must be within the capacity of the physical disk, not 
counting the reserved operating system tracks. 
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owe 
CE Source eU 93 progra» tc ind. 
9 ~~" c A»tyDe sort.a86 qun ES 


gimole sort oroqram 


«x< be 
- se = 


id sort: 
; ^ov 31,0 sinitialize index 
eck mov bx, offset nlist ;6x = dase of list 
mov sw, ¡clear switch flag 
camp: 
zt "Ov al,(bx*sii ¡que byte from list 
cmo al, l[(bxrsi] ¡Compare with next Svte 
D jna inci idon’ switch if in order 
$3 xera al,L{[oxesij - ¡Ao first sart of switch 
— moy foxesil ab ¡do second sart 
^ov 3w,l sat switch flag 
dm Casta 
ine si ;inczsement index 
cm si count. send of list? 
a in2 como ino, seep going 
test sw,l : done - any switches? 
nn *nz sort Ves, sort some nore 
done: 
sus > jue done :get here wher list ordered 
— dseg 
23 gen. 00h ¡leave space for Dase Sage 
; uu aliss ab 31,3,4,5,3L,8$,4,L 
count edu offset $ - offset olist 
"Mon sw 25 0 
end 
: Aggamed2 Agta, 
—. Ai»asmaó. sorz 
NS cP eM 3686 ASSEMBLER VER l.l 


TNO Of PASS L 
IND OF PASS 2 


D OND OF ASSZMSLY. NUMBER OF ERRORS: 2 
= Type Lua ing jade generated bu ASM-ió. 
1>2"72e sort.!1st 
29/4 ASM86 L.l SOURCE: SORT.A86- “AGE Ok. 


3imole sort 2roqram 


we ve owe 


- sor”: 


AS 3000 3E£E9000 mov si,0 simitialize index 
9003 380001 mov ex,oftétser nlisc ;bx = pase ot List 
3006 506080100 "ov aw, O :Cclaar switch flag 
l como: 
-— 0008 3A00 "Ov al, [Sxeai | ¡ger byte from list 
200D 3A4001 RO ai, L{pxesil ¡compare with next ovte 
$910 760A ina inci «don "2 switch if in order 
2012 364001 xcna al.l[bx+si | . s40 *icst 2act of switc 
0015 3800 "ov (bx*sil,al :do second sart 
7 3017 2606080101 mov ew, L Set swizca *lag 
inei: 
201C 46 ine si :increment index 
3015 23704 cmm si, sount send of List? 
an 0020 7589 jnz camp ;nO, «een going 
2022 7508080101 -est $W, ¿done - any switches? 
3027 7557 12 sort ;ves, ioc? some more 
done: 
er 3029 Z9PDF? mo done ; get nere wnen ‘iat ocdere” 
dseg 
org L00h :laaye space for Dase 330% 
— x 
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Returning back to the DPH £or a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by 
the values in the DPB. 


The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this 
particular drive. TE CRS = (DRM+1)/4, then you must reserve 
(DRM+1)/4 bytes for directory check use. If CRS = 0, then no 
storage is reserved. 


The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and 
LS computed as (DSM/8)-1. 


The BIOS shown in Appendix D demonstrates an instance of these 
tables for standard 8" single density drives. It mav be useful to 
examine this program, and compare the tabular values with the 
definitions given above. 


6.2 Table Generation Using GENDEF 


The GENDEF utility supplied with CP/M-86 greatly simplifies the 
"able construction process.,  GENDEF reads a “ile 


Xx. DEF 


containing the disk definition statements, and sroduces an output 
11a 


PIN 
X.LIB 


containing assembly language statements which define the tables 
necessary to support a particular drive configuration. The form of 
the GENDEF command is: 


GENDEF x parameter list 
where x has an assumed (and unspecified) filetype of DEF. The 
parameter list may contain zero or more of the symbols defined in 
Table 6-6. 


Table 6-6. GENDEF Optional Parameters 


$c Generate Disk Parameter Comments 
SQ Generate DPBASE OFFSET S 
$2 280, 8080, 8085 Override 
$102 (Any of the Above) 
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Teque Rav 


rm de de 
e ra 3 : 


.J 


= 
047D:0022 
4470:0027 
947-0029 
0470-0020 
¢475:002E 
0470: 0030 
0470:0031 
94790:0033 
0470:0034 
04795:0035 
2479:0037 
9475:0039 


"EST 
JN 
JMP 
ADD 
ADO’ 
JAS 
ADD 
776 
POP 
ADD 
ADD 


3. 


-3,29 
*0470:06029 


2Gstay surted Lise. 


-31100.10* 


0480:0100 00 00 G0 00 00 40 00 00 00 06 00 20 


av 
90090 
9029 


04A 395060 The 1032 oí the code. 
(01081 ,01 


[3X+57)1 ,AL 
(BX+ST],AL 


(3X+ST],aL 
BC 


=S 
[3X], CL 


(3X+ST] , AX 


oF 


am > cop —— m 


- LLEARDOARL cnecunce ed. 


Doesn't took good; reload jile. 


-490r* 
START 


END * 


CS 3470;0000 047n:0027 
"S 9430:0000 0480:010P 


Trtee 3 insae tioni. 


-£3 
AX 








*9470:0008 


3X TX 


ZeP—= 9600 3100 9000 0000 
z-?- 9000. 0100 J000. 0009 
——-1-2- 29000 0100 92000 0000 


TAER. some mane. | 


-t3 
AX 
— 1 -5- 0000 


*Q47^5:001C 


3% TX 


3100 


9000 3000 
-—-1-3- 2003 9100 0000 0000 
--—-$-A-c 3003 0100 0000 9000 


Ox S? 
LLSt 
L192 


LLIE 


se 
119E 
L192 
LL9e 


OX 


Display nsornzad sd. 


-di00,10f 


0480:0100. 03 08 04 06 LF 96 94 0l 00 00 90 00 OQ 40 00 


Cosplay ACLS naiue iana CU 


-1 
0470:901< 
947D:0010 
9470:0020 
2475:0022 
9479:0027 
92470:9029 
9477:902C 
2470:0027. 
9479:0030 
9479:0011 
0470:0011 
9475:0074 


TNC 
CAP 
JB Z 
TEST 
JN? 
IMD 
ADD 
ADN 
JAS 
ADD 
2% 


BOS 


Trace 
AX 


on] 


--——S-A-C 0003 0100 7000 1000 
ana] 3003 9100 2000 0000 


rom. Se APC 0093 
*9479:0008 


AIL 


SI 
$T1,20048 
$068 
| 3v7t {01081.04 
3000 
0029 
(3x+ST],AL 
(3X+ST1 ,AL 
[3X*91',AL 
ac 
2s 
SEME MORE. 
9X CX OX SP 
139€ 
119€ 
0100 3000 20000 113E 
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9000 
9000 
0000 


9000 


dera 


Erzeugt 7299296 quem IP [50] seling OttARpoanc LIC 


< = Qo Àe—A—U P 


3? $f 
0008 
0000 


6000 


ST 
2000 
3000 
0000 


3P 


good 
0000 


og executed. 


3P SI 
0000 0000 
0000 2001 
0000 0001 


is 
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— —--—2 mun. 


5.3 


29H, 


tT? 
9000 
3003 
9006 


Dt 
0000 
0009 
0009 


MOV 
MOV 
MOV” 


nt t? 
9000 0008 
0000 0009 
0000 29019 


“Ov 
UMP 
JBE 


at I 

3009 20:7 we 
0000 0019 “up 
90009 2020 INZ 


rroorcieatacyv 


eene 


NNT-96 Sample Session 


31,9000 
3X.23100 
"vc [201981,20 


- -e 


AL, [3%+ST! 
AL, 2L[BX+STİ 
2617 


i 


Ja 
37,3008 
399 
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The form of the DISKDEF statement is 
^ DISKDEP dn,fsc,1sc,[sk£],bls,dks,dir,cks,ots, [0] 


wnere 
án is the logical disk number, 0 to n-1 
Esc is the first physical sector number (0 or 1) 
lsc is the last sector number 
skf is the optional sector skew factor 
DIS is the data allocation block size 
dks is the disk size in bls units 
dir is the number of directory entries 
cks is the number of "checked" directory entries 
ofs is the track offset to logical track 00 
[0] is an optional 1.4 compatibility flag. 


The value "dn" is the drive number being defined with this DISKDEF 
Statement. The "fsc" parameter accounts for differing sector 
numbering systems, and is usually 0 or l1. The "Isc" is the last 
numbered sector on a track. When present, the "skf" parameter 
defines the sector skew factor which is used to create a sector 
translation table according to the skew. If the number of sectors 
is less than 256, a single-byte table is created, otherwise each 
translation table element occupies two bytes. No translation table 
is created if the skf parameter is omitted or equal to 0. 


The "bls" parameter specifies the number of bytes allocated to 
each data block, and takes on the values 1024, 2048, 4096, 8192, or 
16384. Generally, performance increases with Larger data block 
sizes because there are fewer directory references. Also, logically 
connected data records are physically close on the disk. Further, 
each directory entry addresses more data and the amount of BIOS work 
space is reduced. The "dks" specifies the total disk size in "bls" 
units. That is, if the bls = 2048 and dks = 1000, then the total 
disk capacity is 2,048,000 bytes. If dks is greater than 255, then 
the block size parameter bls must be greater than 1024. The value 
of "dir" is the total number of directory entries which may exceed 
255, if desired. | 


The "cks" parameter determines the number of directory items to 
check on each directory scan, and is used internally to detect 
changed disks during system operation, where an intervening cold 
Start or system reset has not occurred (when this situation is 
detected, C?P/M-86 automatically marks the disk read/only so that 
data is not subsequently destroyed). As stated in the previous 
section, the value of cks = dir when the media is easily changed, as 
is the case with a floppy disk subsystem. If the disk is 
permanently mounted, then the value of cks is typically 0, since the 
probability of changing disks without a restart is quite low. 
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Make GC guccket de XC EELag cuss Konda S j. Cu KC AVE ed 2723.05 
-ald So vacci. ! 


047010010 ome 81,3 


-- —047D:0020- - : E46 Eb ae sl 


isul unseriad CO. 
-4100 
0430:0100 03 08 04 06 LF 06 94. 91 06 GO 90 OQ NO 00 00 00 ..... cassa ce eea e 
0480:0110 00 00 OO 00 oa ag OO 00 GO 20 da Q0 GO 00 00 00 cenoonooarm..o.» 
0480:0120 00 90 00 a0 OQ 50 60 00 OO 00 da OO 00 20 10 20 4.2.59 


Set »*^aakpc4nt waet gitat 3 LEE nDL sy Coad smoudd De ictied. 


“9,29 
*0470:0029 
-4190,1202"* ay 2450 C xc. 
3480:0100 03 324 26 08 LF 96 04 91 00 90 90 00 20 090 NQ IQ ........... er 
are Ingaresting, De jouit ccument ¿20m Cc adve oeer setttd on. 
START ENO 


^S 0470:9000 047D:002F 
5S 0480:0000 0480:011Ff 


Locs aty again uith some ctaceng. 
-al2 
9470:0015 ono si.3J 
0470:0020 . 


-t9 
? 3» st. OF z? 


yi 


AX 3X Cx OX 





-——— 1-32 0008 2100 9000 3000 119€ 2000 2003 2000 1000 “OV sr,0000 
-———-i-3- 9006 0100 0000 2000 119" 9000 9000 0000 0003 “Ov 3X,0100 

Z=>-= 0006 0104 0000 2000 !13E 0000 09000 9000 9006 vov gvre [01081,90 
m= 3006 0100 0000 0000 1192 2000 2000 0000 9008 “OV AL, (3X+ST! 
-——12-3- 0003 0100 2009 0000 119 0000 0009 9000 009N “MP AL, 21 (3X+S1] 
an B koe 0003 9100 0000 2000 119g% 0000 9000 9000 9010 737 9012 
am 0003 0100 0000 9000 L19£ 3000 0000 0000 001 INC 31 
m 3003 0100 0000 2000 1198 0000 2001 0000 Y01O MP $1,0003 


—3-4-c 0003 0100 0000 0000 119E 0000 2001 0000 2020 NZ 9008 
*0479:0008 


-1 


9479:0003 MOY AL, (3X+ST} 
047D:000D CMP AL, OL{BX+ST} 
047D:0010 79E 901c 

N47D:0012 X^T"G AL,OL(3%+S7] 
2470:0015 MOV (BX*ST)] AL 
047D:GO01L7 MOV BYTES (0108],91 
9475:001C INC $1 

1475:0019 “MP $I, 29003 
9479:0020 NZ 0009 

3479:0022 TEST avé [0198],01 
3470:0027 JN? 9000 

2475:0029 IMP 9029 


-c3 

AX 3X cx 2x S$? 39 3L nI iP 
emm? 0003 2100 0000 0000 119€ 0000 0001 2000 0008 “NV AL, (AN*S721 
-——S$-A-C 3908 0100 0000 0000 119€ 0000 0001 0000 agon CMP AL.IL[A+SI] 
-——----- 3008 0190 0000 0000 119 0000 0001 0000 9010 TAE 00 Lr 
*94792:0012 


-l 

2470:0012 XCHG 4AL,OL(SX+STI 
0479: 00 LS “OV [3X *STl, AL 
0479:0017 «OV avTe (01031.01 
3470:0912 INC 31 

N47D:001D MP 31,0003 
0472:0020 INZ 0008 

3470:0022 TESST 3YTE '01081!,21 
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Note that if the "skf" (skew factor) carametec is omitted (or 
equal to 0), the translation table is omitted, and a 00008 value is 
inserted in the XLT Dosition of the disk parameter header for the 
disk. In a subsequent call to verform the logical to ohysical 
translation, SECTRAN receives a translation table address of DX = 
0000H, and simplv ceturns the original logical sector from CX in the 
8X register. A translate table is constructed when the skf 
parameter is oresent, and the (non-zero) table address is placed 
into the corresponding DPH^s. The table shown below, for example, 
is constructed when the standard skew factor skf = 6 is specified in 
the DISKDEF statement cali: 


XLTO EOU OFFSET S 
DB 1.113 19,29 IO E TR C 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 


Following the ENDEF statement, a number of uninitialized data 
areas are defined. These data areas need not be a part of the BIOS 
which is loaded upon cold start, but must be available between the 
RIOS and the end of operating system memory. The size of the 
uninitialized RAM area is determined by EOU statements generated ny 
the ENDEF statement. Tor a standard four-drive system, the INDEF 
statement might produce 


1072 = BEGDAT ZOU OFFSET S 
(data areas) 
LDBO = ENDDAT ZOU OFFSET S 
Q13C = DATSIZ EOU OFFSET S-BEGDAT 


which indicates that uninitialized RAM begins at offset 1C72H, ends 
at LDBOH-1, and occupies 013CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 


After modification, you can use the STAT orogram to check your 
drive characteristics, since STAT uses the disk parameter block to 
Aecode the drive information. The comment included in the LIS file 
bv the SC parameter to GENCMD will match the output from STAT. The 
STAT command form 


STAT d:DSK: 


n 
n 


decodes 
displays 


iD 


disk parameter block for drive d (deA,...,T) and 
values shown below: 


rf 


(t 
iD 


128 Byte Record Capacity 
Kilobyte Drive Capacity 
32 Byte Directory Entries 
Checked Directory Entries 
Records/ Extent 

Records/ Block 

Sectors/ Track 

Reserved Tracks 


* e+ 


T U C (D Q Uu 1 
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. —. A =, wer 
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-tsort.cmd uf ted CMD iite KEMAL teast, so we aac R 
|.  STMART- END command. 
2000:9000 .2000:01F* 
|. Fàitac 30h butes contada fizader, su guda scares at ida. 
-130 
2000:0080 MOV si,0000 
2000:0083 «Ov 3x,9100 
2000:0086 MOV BYTE (01081,00 
2000:008B MOV AL, (BX+ST] 
2000:0080 CMP AL, 01 [BX+ST! 
2000:0090 JHE 29091 
2000:0092 XG AL+,01(BxX+ST! 
2000:9095 «Ov - (BX+ST],AL 
2000:0097 «Ov Y3yr"e [0108],01 LL 
72000:009C INC SI 
2900 :0090- «> S1,0008 
2000:00AQ JNZ 0088 
cJ EA — Iasiadl pater. -— 
^ . o. -a9d 7 
T 2000: 3090 cmo si,? - - ~ 
AL EL side bast to disè. ile ngh o3 idee assumes Co FC unchanged 


-wsort ome j«4nCà no Ling 


Retoad side. 
¿A T TED. 
START 


CS 7479:0000. 
DS 9480:0000 


Dm 
0479:0025 — 
0480:010P 


Vercig thas satek was «nscallad. 


- 


0479:9000 «Ov 51,0000 
0470:0003 MOV 3x,9100 
0470:0006 “Oy - BYTE (01091,90 
0477:000B MOV- AL, (3X+S511 
32479:0000 B AL,OL{(3X+S71 
9479:0010 73E 001 
0475:0012 xCEG AL,Ol[3X«SI! 
0470:0015 “Ov (SX*S11.,AL 
» 0479:0017 “OV gr" [0103],01 
2 9475:0010 INC S1 
E 0470:001D (MP Sr,0007 
0470:0020 JNZ 0008 
Run Ct 
-3,29 
*0470:0029 
Stilt looks good. Sreo ct! 
-d100,10f 


it speCca£ed. , 


9480: alae OL 03 04 04 06 06 98 LF 90 OQ 00 OG 30 00 90 90 ......... nn 


is 


“ 
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Table 6-8. GENDEF Input and Output Error Messages 


Cannot Close ".LIB" File LIB file close overation 
unsuccessful, usually due 
to hardware write orotect. 


















"LIB" Disk Full No space for LIB file. 








No Input File Present Specified DEF file not 
found. 


No ".LIB" Directory Space Cannot create LIB file due 
to too manv files on LIB 
disk. 








Premature End-of-File | End of DET file encountered 
l unexpectediy. 
Given the file TWO.NEF containing the following statements 
disks 2 
diskdef 0,1,26,6,2048,256,128,128,2 
diskdef 1,1,58,,2048,1024,300,0,2 
endef 
the command 
gencmd two Sc 


produces the console output 


DISKDEF Table Generator, Vers 1.0 


l DISKS 2 

2 DISKDEF 0,1,58,,2048,256,128,128,2 
3 DISKDEF 1,1,58,,2048,1024,300,0,2 
4 ENDEP 


No Error (s) 
The resulting TWO.LIB file is brought into the following skeletal 
assembly language program, using the ASM-86 INCLUDE directive. “he 


ASM-86 output listing is truncated on the right, dut can be easily 
reproduced using GENDEF and ASM-86. 


All Information Presented Here is Proprietary to Digital Research 


T8 


A crore e 0 5 o. aacmam e A am ee 


"a 
ys 
soem st ae - 


Mt 


— A AAA iM A ere - DE a a mm mons mi ll A e i o t nr e S me * 


Appendix A 
ASM-86 Invocation | |. |. . 


Command:  ASM86 - : S e a a TH 
Syntax:  ASM86 «filename» Í $ «parameters» ) 


where 
<filename> is the 8086 assembly source file. 
-= ce Drive and extension are optional. 
The default file extension is .A86. 
«parameters» are a one-letter type followed by 


a one-letter device from the table 
below. 


Parameters: 


form: $ Td where T s type and d. = device 


Table A-l. Parameter Types and Devices 


Parameters 
Ta |] oe | e | s ||. 
x x x x 


x X x 











Devices 









x x 


x zx valid, d = default 


Valid Parameters 


Except for the ? type, the default device is the the current default 
drive, 
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H H h Rh N N H H d H HW hh Ho ss B8 HW h bunt ü MW M 


A 


pa 


Q04C 
004C 
004E 
004F 
0050 
0051 
0053 
0033 
0056 
0057 00 
0059 02 

0000 

0080 

0000 


04 
OF 
00 
FF 
2B 
F8 
00 


0058 
0058 
00DB 
00PB 
0113 
019B 

0198 

0140 
0198 00 


H~ 


3A 


00 


03 
01 


00 
00 


information Pres: 


nted 


Qu +e ~é mê ss “@ wa 0. "a 


obl 


XEEL 
alsl 
essl 


> 


i 
* 
; 
. 
; 


begdat 
dirout 
alvo0 
esv0 
aivi 
csvl 
enddat 
datsiz 


Here 


is Proorietarv 
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2048: 


300: 
O: 
128: 
16: 
58: 
d 


equ. 
dw 
db 
d5 
db 
dw 
dw 
db 
db 
dw 
dw 
equ 
equ 
equ 


equ 
rs 
cs 
rs 
cs 
rs 
equ 
equ 
db 
END 


6.3 GENDEr Outouc 


Kilobvte Drive Capacít 
32 Bvte Directory Fntrl 
Checked nirectorv Entri 


| Records / Extent 


Records / Block 
Sectors / Track 
Reserved Tracks 


offset S ¿Disk P 
58 “Sector 
4 «Block 

15 | ¿Block 

0 | -Extnt 

1023 Disk S 
299 ¡Direct 
248 ;AllocO 
0 ;:Allocl 
0 «Check 

2 ;Offset 
0 «No Tra 
128 ;Alloca 
0 ¿Check 

ENDEF 


offset S ¡Start 
128 Direct 
also ;Alloc 
cssQ : Check 
alsi ;Alloc 
Cas : Check 
offset $ «End of 
offset S-beqdat ;Size o 
Q "Marks 
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Mnemonic Differences From the Intel Assembler 


ius The CP/M 8086 assembler uses the same instruction mnemonics 


explicitly specifying far 


as the INTEL 8086 assembler except for 
The following table shows 


and short jumps, calls and returns. 
the four differences: 


e | | Table B-1. Mnemonic Differences 





) | Intra seqment short jump: 


Inter segment jumbo: 


Inter segment return: 


= Inter segment call: 


Noa 
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8b lob 16b leb l6b 





where G-Form s l denotes a code group, "x" fields are ignored, and 
A-Base defines the paragraph address where the ROOT ROM begins 
filling memory (A-Base is the word value which is offset three bytes 
from the beginning of the header). Note that since only a code 
group is present, an 8080 memory model is assumed. Further, 
although the A-Base defines the base paragraph address for LOADER 
(byte address 040008), the LOADER can, in fact be loaded and 
executed at any paragraph boundary that does not overlap CP/M-86 or 
the BOOT RCM. 


. The LOADER itself consists of three parts: the Load CPM 
orogram (LDCPM), the Loader Basic Disk System (LDBDOS), and the 
Loader Basic I/O System (LDBIOS). Although the LOADER is setup to 
initialize CP/M-86 using the Intel 86/12 configuration, the LDBIOS 
can be field-altered to account for non-standard hardware using the 
same entry points described in a previous section for BIOS 
modification. The organization of LOADER is shown in Figure 7-1 
below: 






GDFL O VZZZZETETZTEE 


(LDCPM) 









CS DS ES SS 09000H: 


04008: 
(LDBDOS) 








1200H: JMP INIT 
JMP SETIOB 
INIT: .. JMP 00038 
(LDBIOS) 
1700H: 


Figure 7-1. LOADER Organization 
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S FE" TTT cc . 2 > eee 
ia ~_ASM-86 Hexadecimal | Output. Formato. 


— E 7 
Era. —— i sm- a. 





aa, 


$c rv IR m --c* west we == Le x - == 


At the: user” z option, ASM-86 produces machine code in either 
Intel or Digital Research hexadecimal format. The Intel format is 
identical to the format defined by Intel for the 8086. The Digital 
Research format is nearly identical to the Intel format, but adds 
segment information to hexadecimal records. Output of either format 
carr be input to GENCMD, but the Digital Research format 
„automatically provides. segment. identification. A segment is the 
smallest unit of = program that can be relocated. 


+ eee woe "ereenn m 


- - 


T7077 Table” ‘Cal defines. t e A and contents of bytes im a 


"en ES 


Uy 


0 record marx : 
1-2 record length Lol 
3-6 is load address aaaa 
7-8 record type E 
9-(n-1) data bytes dd. 2H 
E n-(n+1) check sum G x 
n+2 carriage return CR 
n+3 line feed LF 


hexadecimal record. Each hexadecimal record has one of the four 
formats shown in Table C-2. An example of a hexadecimal record is 
shown. below... —— M Ren l | m 


- æ. | r. -pm = e E - 4 


^ Byte number== 01234567389 ..............n 


Contents» : Llaaaattddd.........cc CR LF 


= 
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A»DDT 
. .. . -ILOADER.CMD 
-R800 
-°C 
A>SYSGEN 
SOURCE DRIVE NAME (or return to skip) «cr» 
DESTINATION DRIVE NAME (or return to skip) B 


Alternatively, if you have access to an operational CP/M-86 system, 
the command | 


LDCOPY LOADER 


copies LOADER to the system tracks. You now have a diskette with a 
LOADER program which incorporates your custom LDBIOS capable of 
reading the CPM.SYS file into memory. For standardization, we 
assume LOADER executes at location 4000H. LOADER is statically 
relocatable, however, and its operating address is determined only 
by the value of A-Base in the header record. 


You must, of course, perform the same function as the BOOT ROM 
to get LOADER into memory. The boot operation is usually 
accomplished in one of two ways. First, you can program vour own 
ROM (or PROM) to perform a Function similar to the BOOT ROM when 
your computers reset button is pushed. As an alternative, most 
controllers provide a power-on "boot" operation that reads the first 
disk sector into memory. This one-sector program, in turn, reads 
the LOADER from the remaining sectors and transfers to LOADER upon 
completion, thereby performing the same actions as the BOOT ROM. 


Either of these alternatives is hardware-specific, so vou” 1? need to 
be familiar with the operating environment. 


7.2 Organization of CPM.SYS 
The CPM.SYS file, read by the LOADER >Drogram, consists of the 


CCP, BDOS, and BIOS in CMD file format, with a 128-byte header 
record similar to the LOADER program: 


a | 000 
8b lob lob 


a 










XXXXXXX XXXXXXX 


lob 16D 





where, instead, the A-Base load address is paragraph O40H, or byte 
address 04008, immediately following the 8086 interrupt locations. 
The entire CPM.SYS file appears on disk as shown in Figure 7-2. 
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¿E -- Table C-3. Segment Record Types 


O MES Intel^s Digital”s 
A | mel Value Value Meaning 


T for data belonging to ail 
8086 segments 
l for data belonging to the 
CODE segment 
for data belonging the 
2 DATA segment 
A for data belonging the 
"E ^" 7 | STACK segment 
id for data belonging t 
" ) EXTRA segment 
- for all. segment address 
» records 
= 85H for a CODE absolute segment 
address 
= 86H for a DATA segment. address 
= 37H for a STACK segment address 
= 88H for a EXTRA segment address 
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Concatenate this new BIOS to the CPM.H85 file on your distribution 
disk: 


PIP CPMX.H8G = CPM.H86,Bi0S.H86 


The resulting CPMX hex file is then convertec to CMD file format by 
executing 


GENCMD CPMX 8080 CODE[A40] 


in order to produce the CMD memory imege with A-Base = 40H. 
Finally, rename the CPMX file using tne command 


REN CPM.SYS = CPMX.CMD 


and place this file on your 8086 system disk. Now the tailoring 
process is complete: you have replaced the 30CT ROM by either your 
own customized BOOT ROM, or a one-sector cold start loader which 
brings the LOADER program, with your custom LDBIOS, into memory at 
byte location 040008H. The LOADER program, in turn, reads the 
CPM.SYS file, with your custom BIOS, into memory at byte location 
94008. Control transfers to CP/M-85, and you are up and operating. 
CD/M-86 remains in memory until the next colic start operation takes 
place. 


Vou can avoid the two-step boot operation ii you construct a 
non=standeré disk with sufficient space to noic tne entire CPM.SYS 
tile on the system tracks. In this case, the cold start brings the 
CP/M-86 memory image into memory at tne location given by A-Base, 
and control transfers to the INIT entry point ac offset 2500H. 
Thus, the intermediate LOADER progrem is eliminated entirely, 
although the initialization found in the LDBIOS must, of course, 


take place instead within the 8105. 

Since ASM-86, GENCMD and GENDEF are provided i 
CMD formats, either CP/M-80 or CP/M-86 can be use 
customizing process. If CP/M-80 or CP/M-86 is not available, but 
you have minimal editing and debugging tools, you can write 
specialized disk 1/0 routines to read and write the system tracks, 
as well as the CPM.SYS file. 


c 
o aid tne 


fu 


The two system tre 
file is somewhat more di 
on the disk and thus ic rs immediately follow! 
on the diskette. The ctory begins on the third t 
occupies the first sixteen logical sectors oí the diskette, while 
-he CPM.SYS is found starting at the seventeenth sector. Sectors 
are "skewed" by a factor of six beginning with the directory track 
(the system tracks are sequential), so that you must load every 
sixth sector in reading the CPM.SYS file. Clearly, LE 18S Wottm cae 
time and effort to use an existing CP/M system to aid the conversion 
process. 


re simple to access, Dut tne 
- to read. CFPM.SYS i zi 


, 
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Reserved Words 


Table D-1. Reserved Words 


Predefined Numbers 


DWORD 


Operators 













EQ GE - GT LE LT 
NE |. OR | AND MOD _ NOT 
drm MEE icd SAL |. SER XOR 
_ LENGTH ~ OFFSET 
Assembler Directives 
= | ir END | EH P 
ORG - | | —CSEG " DSEG ESEG SSEG 
EJECT ENDIF . TITLE LIST NOLIST 
INCLUDE = SIMFORM PAGES IZE CODEMACRO PAGEWIDTH 
DBIT 
an MOS a NOS EGFIX 


8086 Registers 
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CP/M-86 System Guide Apoendix A 3lockina and Neolockina 


The principal entry points are READ and WRITE. These 
subroutines take the place of your orevious RFAD and “RITE 
Operations. 


The actual physical read or write takes olace at either 
WRITEHST or REANEST, where all values have been orevared: hstdsk is 
Kha host disk number, hsttrk is the host track number, and hstsec is 
-he host sector number (which mav require translation to a ohysical 
sector number). You must insert code at this point which verforms 
the full host sector read. or write into, or out of, the buffer at 
hstbuf of length hstsiz. All other mapping functions are performed 
by the algorithms. 


ERR de dede indeed ede dede dede dede dedere dede ede EERE R RRA ode 


Lé 
2: pF * 
ay. m Sector Blocking / Neblocking * 
4s a T de 
5: ;* This algorithm is a direct translation of the * 
6: :* (D/M-80 Version, and is included here for refar- * 
7: :* ence survoses only. The file DERLOCK.LIS is in- * 
8: ;* cluded on your CP/M-86 disk, and should be used i 
9: :* for actual applications. You may wish to contact * 
10: ;* Digital Research for notices of updates. * 
ll: ;* * 
l2: , odes dede dede RARA RARA RARA RA RARA EERE ERE EERE REEL e 
LIS i 
lá: ERR EEE REAR RR HERR RARA REE REEL ERR ETERS SS 
Los + N 
294 de CP/M to host disk constants * 
L7: 3? * 
19: ;* (This example is setup for CP/M block size of Lox * 
19: ;* with a host sector size of 512 bytes, and 12 sec- * 
20: ;* tors ver track. Blksiz, hstsiz, hstsot, hstblk * 
21: :* and secshf may change for different hardware.) x 
23: RIE EE REE REE ER ERR ES REE EEE SES 
23: una equ byte ptr [8X] «name for byte at 34 
24: ; 
25: blksiz equ 16384 :CD/M allocation size 
26: hstsiz equ 5142 :host disk sector size 
27: hstsot ecu LA shost disk sectors/trk 
28: astolx equ hstsiz/128 -CP/M sects/host buff 
29: 1: 
i0: QOO ACE UE OR ORO UR ROUTIER OUR OR ACIER ELE RETREAT EEE SS 
3l: ;* - 
32: ;* secshf is loq2(hstblk), and is listed below tor * 
33: ;* values of hstsiz up to 2048. * 
34: "Mag = 
35: ;* astsiz astblk secshé y 
36: ;* 256 1 * 
37e ui 512 4 2 d 
Ja wm 1024 8 3 xi 
395 =F 2048 l6 4 * 
Ur ak a 
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ASM-86 Instruction Summary 


Table E-l1.  ASM-86 Instruction Summary 


Mnemonic Description ` Section 
















AAA ASCII adjust for Addition 4.3 

- AAD ASCII adjust for Nivision 4.3 

= AAM ASCII adjust for Multiplication 4.3 

AAS ASCII adjust for Subtraction 4.3 

- ADC Add with Carry MN 4.3 

ADD Add 4.3 

m AND And 4.3 

ens CALL Call (intra segment) 4.5 

D CALLF Call (inter segment)} 4.5 

E CBW Convert Bvte to Word 4.3 

CLC Clear Carrv 4.6 

- CLD Clear Direction 4.6 

ER CL Clear Interrupt 4.6 

| CMC Complement Carry 4.6 

z CMP Compare 4.3 

= CMPS Compare Byte or Word (of string) 4.4 

CWD Convert Word to Double Word 4.3 

- DAA Decimal Adjust for Addition 4.3 

DAS Decimal Adjust for Subtraction 4.3 

DEC Decrement 4.3 

E DIV Divide 4.3 

ESC Escape 4.6 

HLT Halt 4.6 

IDIV Integer Divide 4.3 

IMUL Integer Multiply 4.3 

l IN Input Byte or Word 4.2 

Jj INC Increment 4.3 

INT Interrupt 4.5 

INTO Interrupt on Overflow 4.5 

IRET Interrupt Return 4.5 

JA Jump on Above 4.5 

JAE Jump on Above or Equal 4.5 

TB Jump on Below 4.5 

JBE Jump on Below or Equal 253 

JC Jump on Carry 4.5 

JCXZ Jump on CX Zero 4.5 

JE Jump on Equal 4.5 

JG Jump on Greater 4.5 

JGE Jump on Greater or Equal e 

JL Jump on Less 4.5 

= TLE Jump on Less or Equal 4.5 
p 
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142: 


144: 
145: 
146: 
147; 
148: 
149: 
LOs 


All 


setdma: 


t 


setdmab: 


^ 
t 


sectran: 


no tran: 


write: 


=é¢ we C9» 


* 
U 


chkuna: 


=e 
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DEL 


7set dma address given by CX 
mov ¿ma off,CX 
ret = 


¿set seqment address given by CX 
mov dma seg,CX 


ret 

“translate sector number CX with table at [NX] 
crest OX, DX «test for hard skewed 

jz notran . (blocked must be hard skewed) 
mov BX,CX 


add &X,»n»x 
mov BL, [BX] 


ret 

hard skewed disk, ohvsical = logical sector 

MOV SX CX 

rer 

¡1223 the selected CP/M sector 

mov =Sa2acnt,0 «clear unallocated counter 
mov taadon,l «read overation 

mov -zsflag,l ;must read data 

mov wrT*tvpe,wrual «treat as unalloc 

jm? rwoper sto perform the read 


‘writes the selected “P/M sector 


mov traadop,0 «write operation 
mov etivpe,cl 

cm2 l2 ,wrual write unallocated” 
jnz c*kuna scheck for unalloc 


writ > to unallocated, set parameters 


mov macnt,(blksiz/128) ¡next unalloc recs 


mov zx: ,sekdsk ‘disk to seek 
mov -^adsk,al sunadsk = sekdsk 
mow mu ,sektrk 

Mow omatrk,ax sunatrk = sektrk 
mov xl ,seksec 

mow =masec,al sunasec = sexsec 


Chant for write to unallocated sector 


mow xy ,offset unacnt ¿point "UNA" at UNACNT 
d 2 
mov = una ! test al,al ¡any unalloc remain: 


— 


- CP/M-86- Programmer’s Guide - Appendix = Instruction Summary 





o "ga "m A Table R-l. (continued) 
Description. 


ore Pop 
| Pop Flags 
Push 
Push Flags 
Rotate through Carry Left 
Rotate through Carry Right 
Repeat 
Return (intra segment) 
Return (inter segment) 
Rotate Left 
— Rotate Right 
| | Store AH into Flags 
| Shift Arithmetic Left 
bus Shift Arithmetic Right 
- -— e -- --— Subtract with Borrow— | 
) E - . -. Scan Byte or Word (of string) 
cda o. Shift. Left o 
| Shift Right 
Set Carry 
Set Direction 
E | | , Set Interrupt 
| Store Byte or Word (of string) 
Subtract. 
E : E ^ Test 
: " HE „Wait 
= od. Bs Exchange 
Translate 
Exclusive Or 


b d e bb b 
PIH P, >è ¢ 


> b $ 4 L » 4 


pr bb eo hee 
t 4 
Q9 R3 KA dy (2 Md i CQ Ch d M M d» ds UJ ds P9 L9 CJ Ur Un WW NN [9 


ax G P q^ hh uA d US RR d 
* * s * 4 $ 6 * . * * * 
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206: mov sekhst,al shost sector to seek 
207; ; 

208: ; active host sector? 

209: mov al,1l 

240% xchg al,nstact salways becomes l 

Ze test al,al «was it already? 

212: iz Cilhst Fill host if not 

213%: 

214: ; host buffer active, same as seek buffer? 

LS mov al,sekdsk 

2153 cmp al,hstdsk «sekdsk = hstdsk? 

2171 inz nomatch 

218: 

219: >; same disk, same track? 

220 mov ax,hsttrk 

2214 cmp ax,sektrk “host track same 4s seek track 
222: jnz nomatch 

223: ; 

224: >; same disk, same track, same buffer? 

225: mov al,sekhst 

226: cmo al,hstsec ssekhst = hstsec? 

VACARE. iz match 'Skip if match 

228: nomatch: 

2295 soroper disk, but not correct sector 

230% mov al, hstwrt 

24313 test al,al "dirty" buffer ? 

232: iz filhst no, don^t need to write 
2337 call writehst yes, clear host buff 
234: > (check errors here) 

235* 3 ] 

236: filhst: 

2373 may have to fill the host buffer 

238: mov al,sekdsk ! mov hstdsk,al 

239: moy ax,sektrk ! mov hsttrk,ax 

240: mov al,sekhst ! mov hstsec,al 

241: mov al,rsflag 

242: rest al,al "need to read? 

243: jz ELIMSEL 

244; ; 

245: call readhst yes, if Ll 

246: ; (check errors here) 

247: ; 

248: filhsel: 

249: mov hstwrt,90 “no pending write 

2590: 3 

251: match: 

2944 scopy data to or from buffer depending on "readop" 
2537 mov al, seksec «mask buffer number 

254: and ax, secmsx «least signif bits are masked 
255: mov cl, 7 ! shl ax,cl «snitt left 7 (* L28 = 2*9*7) 
23905 3 

2572 3 ax has relative host buffer offset 

25494. 3 

299: add ax,off$set hstbuf «ax has buffer address 
260: mov si,ax ¿put in source index register 
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ee ee tel wana 


r det ta 
LC 
3 ON - 


1 


L 


0000 290600 
0003 £91900 
0006 £92300 


=- 


Listing. Fel. 


CP/M ASM86 l.l SOURCE: APPF.A86 


t. -——-———— L . - e s'Cam6e- e PEE estes fe 


.. AppendxF . . 2. 00 
Sample Program c 


Sample Program APPF.A86 


Terminal Input/Output 


-æ - o£ - "oe v . . .. - -. - En 


title “Terminal Input/Output” 
pagesize 50 

pagewidth 79 

simforrmt 


exe Terminal 1/0 subroutines ******** 


The following subroutines 
are included: 


M ^p ve >a “+ 89 


S CONSTAT ~ console status 
* CONIN - console input 
> CONOUT - console output 
7 Sach routine requires CONSOLE NUMBER 
r in the BL - register 
de de e ie ie oe de dete de ir de dede deem 
7 * Jump table: * 
; de de je de se de de cie cde de e ir de de simt eR 
CSEG * Start of code segment 
jmp tab: 
imp constat 
3mp conin 
jmo conout 


4e 9r ie le de t de cir de de de ce cde oe e oe dei de ot de dede 


* I/O vort numbers * 
dr 4e de de de de de de de t de de e TERETE 


“=e =a Se “o. 8 
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les | 
317: 
.318:- 


319: 
320: 
321: 
322: 
323: 
324: 
325: 
326: 
327: 
328: 
329: 
330: 
331: 
332: 
333: 
334: 
335: 
336: 
S273 
338: 
339: 
340: 
341: 
342: 
343: 
344: 
345: 
346: 
347: 
348: 


All 


Appendix A Blocking and Neblocking 


=e 


o. .disk parameter tables go here 


“g 


dede te de ehe dede dece de de ve de dece e e deo de dede e dee de e de e dede dede EE EE ER e eee od 
- * t - 79 E E R de 
Uninitialized RAM areas follow, including the * 
areas created by the GENDEF utility listed above. * 
dd . * 


=e “=p... I" ut 
* + ox 


+ 


Ç de de de de e de de de dede de Je de de dede de dede de de dede dede ede dece e de de de je dede dece dee dee e de de de de e de de oe 


sek dsk rb L ¿seek disk number 
sek_trk rw 1 ¿seek track number 
sek sec rb 1 «seek sector number 
hst_dsk rb L shost disk number 
hst_trk rw E ¡host track number 
hst_sec rb 1 ¡host sector number 
sek_hst rb i ¿seek shr secshf 

hst act rb E shost active flag 
hst_wrt rb I ¿host written flag >) 
una cnt rb l :unalloc rec cnt 

una dsk rb l ;last unalloc disk 
una trk rw i last unalloc track 
una sec rb i “last unalloc sector 
erflag rb L «error reporting 
rstlag rb l «read sector flag 
readop rb l 1 if read operation 
wrtype rb l «write operation tvoe 
dma seg rw l ¡last dma seqment 

dma off rw i slast dma offset 
hstbuf rb hstsiz shost buffer 


end 
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| CP/M-ASM86 l.l SOURCE: APPF. 


utr 


Aooendix P Samole Program 


A86 Terminal Input/Output 


aa pea — a 


c ey. MEE l BE uec GODSE a TO LaL en ———— —ÀÓ— — — ee A L : PE 
"552 7 001A SASBOACOC3 S poo dx ! pop bx lor al,al.! tet —— - > 
S pee - LU 
o * CONIN * 
de de fede de fe ie inde 


^ “wp wa "4 


we 6 "=p 


conin: 
conini: 


QOlF 53E82900 
0023 E8E7TT 
0026 74FB 
0028 52 

0029 B600 
0028 8A5702 
902E EC 

002F 247" 
0031 SASBC3 


0 -— ~i wa 9. =F "+ =e e =P 


0034 
0038 
0039 
003A 
0030 


53E81400 
32 

50 

B600 
8A17 


onout: 


conoutl: 


Uy 


- 


Ll 


003E EC 


laus es 
id All Information Presented 


push: bx. L cal! okterminal 


Entry: BL - reg = terminal no 
Exit: AL - req = read character 


t 
+ 
U 
U 


call constatl test status 


"J2  cóninL 

oush dx : read character 
mov dh,0 

mov dl,indatatab [BX] 

in - : al,dix 

and al,?tr > Strip oaritv bit 


poo dx 1 ooo bx ! ret 


t tr ie inde de dede decode 


* CONOUT * 


dede dede ete 


BL =~ req = terminal no 
AL - req = character to print 


Entry: 


ousi bx ! call okterminal 


push-dx---- 


push ax 


- dh, ð test status 


dl,instatustab [RX] 


mov" 
mov 


. 
, 


in al,dx 
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CP/M-86 System Guide Appendix B Sample Random Access Proaram 


One could, for example, assume a standard record size of 128 
bytes, consisting of arbitrary fields within the record. A oroaram, 
—called GETKEY, could be developed which first reads a sequential. 
file and extracts a svecific field defined by the operator. For 

example, the command | 


GETKEY NAMES.DAT  LASTNAME 10 20 


would cause GETKEY to read the data base file NAMES.NAT and extract 
the "LASTNAME" field from each record, starting at position 10 and 
ending at character 20. GETKEY builds a table in memorv consisting 
of each particular LASTNAME field, along with its 16-bit record 
number location within the file. The GETXEY program then sorts this 
list, and writes a new file, called LASTNAME.XEY, which is an 
alphabetical list of LASTNAME fields with their corresponding record 
numbers. (This list is called an "inverted index" in information 
retrieval parlance.) 


x 


| | : | 
Rename the program shown above as QUERY, and enhance it a bit ~ 


SO that it reads a sorted key file into memory. The command line 
might appear as: 


QUERY NAMES.DAT LASTNAME.KEY 


Instead of reading a number, the QUERY proqram reads an alphanumeric 
string which is a varticular key to find in the NAMES.DAT data base. 
Since the LASTNAME.XEY list is sorted, vou can find a particular 
entry quite rapidly by performing a "binary search," similar to 
looking up a name in the telephone book. That is, starting at both 
ends of the list, you examine the entry halfway in between and, if 
not matched, split either the upper half or the lower half for the 
next search. Youll quickly reach the item you're looking for (in 
log2(n) steps) where you^ll find the corresponding record number. 
Fetch and display this record at the console, just as we have done 
in the oroqram shown above. 


At this point you^re just getting started. With a little more 
work, you can allow a fixed grouping size which differs trom the 128 
byte record shown above. This is accomplished by keeping track of 
the record number as well as the byte offset within the record. 
Knowing the group size, you randomly access the record containing 
the orover groun, offset to the beginning of the group within the 
record read sequentially until the group size has been exhausted. 


Finally, you can improve QUERY considerably by allowing boolean 
expressions which compute the set of records which satisfv several 
relationships, such as a LASTNAME between HARDY and LAUREL, and an 
AGE less than 45. Display all the records which fit this 
description. Finally, if your lists are getting too big to fit into 
memorv, randomly access your key files from the disk as well. 


All Information Presented Here is Proprietary to Digital Research 


96 


= "CP/M=86 Programmer” > Guide Appendix T Sample Program 
CTS CRAMASMBG-l.l SOURCE: APPF.A86 Terminal Input/Outsut. , |. | PARE 
es | 
ras m 0000 1012. instatustab db instatl,instat2 
-m - 0002 1113 indatatab db indatal,indata2 
0004 1113 outdatatab db outdatal,outdata2 
e 0006 0104 readyinmasktab db ceadyinmaskl,readyinmask2 
= 0008 0208 readyoutmasktab db readyoutmaskl,readyoutmask2 
7 eee eee eee eee eee end of file de de e de de cit de de d ye de de dr TERA KE 
end 
P END OF ASSEMBLY. NUMBER OF ERRORS: 0 a. 
0 E u 
ME 
o de 
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56: 
572 
58: 
59: 
50:. 
6l: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
PL 
72: 
73: 
74: 


inc al 
jnz ready 


ws we 


cannot oven file, 


Appendix B 


Random Access Sample Proqram 


«err 255 becomes zero 


so create it 


mov cl,makef 
mov dx,offset feb 
call odos 
inc al serr 255 becomes zero 
1n2 ready 
: cannot create file, directory full 
mov dx, offset nospace 
call DEFINE 
imp abort :oack to Ccp 


-h o SO 


loop back to "ready" after each command 


ready: 

file is ready for processing 

? 
call readcom read next command 
mov ranrec,dx «store input records 
mov ranovf,Oh «Clear high byte if set 
cmp al,^Q^ ¿quit? 
102 notq 

t 

, quit processing, close fiie 
mov cl,closef 
mov dx,offset fcb 
call bdos 
ine al serr 255 becomes 0 
32 error ¡error message, retry 
Jmps abort ¡Back to ccp 

; 

: end of quit command, process write 

; 

; 

nota: 

i not the quit command, random write? 
cmp al,^W^ 
12 notw 

7 

; this is a random write, fill buffer until cr 
mov dx,offset datmsg 
call Drine ;data prompt 
mov Sx PEE sup to 127 characters 
mov bx, offset buff ¿destination 

tloop: ;read next character to buff 
push Cx “save loop conntrol 
push bx ¿next destination 
call getchr echaracter to AL 
pop DX “restore destination 
DOD Cx srestore counter 
emp al,cr send of line? 
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- Code-Macro. Definition Syntax 


«codemacro» ::= CODEMACRO «name» [«forma!S!ist»] 
(«listSofSmacro$Sdirsctives»] 
ENDM 

«name» ::= IDENTIFIER 

<formalStist> ::- coarameterSdescer>({,<varameterSdeser>} } 


<parameter$descr> ::= <formSname>:<svecifierSletter> 
emodifierSlecter>({ (<rande>) | 


«specifierSletter» ::=A | CID] g| MIR | Six 
«modifierSletter» ::- b | w | 4 | sb 
«range» ::= «sinaleSrange»|«doubleScange» 


€«single$ranqe» ::= REGISTER | NOMBFRB 


«doubleSrange» ::* NUMBERB,NUMBERB | NUMRERB, REGISTER | 
REGISTER, NUMBERB | REGISTER, REGISTER 


«listSofSmacroSdirectives» ::= <macroSdirective> 
«macroSdirective»! 


«macroSdirective» ::= «db» | «dw» | «dd» | <seqfix> | 
«noseqfix» | «modrm» | «relb» | 
<relw> | «dbit» 

«db» ::= DB NUMRERB | DB <formSname> 

«dw» ::2 DW NUMBERW | DW <formSname> 

«dd» ::= DD <formSname> 

«segfix» ::= SEGFIX <formSname> 

«nosegfix» ::- NOSEGFIX <formsname> 


«modrm» ::= MODRM NUMBER7,<formSname> | 
MODRM <formSname>,<formSname> 


<relb> ::3 RELB <formSname> 
<ralw> ::= RELW <formSname> 


«dbit» ::5 MBIT «fieldSdescr»í,«fieldSdescr»? 
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vt 


166: -  POD- Cx: .. 4 ae oe : 
| 167: N “1009 wloop >- -.  :;decrement CX and check 
168: ... .. .Jmg& . .raady .. |. » x Oe a (c | | 

169: ; | a 

170: ; S l : 7 M 

171: ; end of read command, all errors end-up here 

172: ; nee 3 

173: ; 

174: error: 

175: mov dx, offset errmsg 

176: call print 

LiT: jmp ready 

178: : 


179: ; BDOS entry subroutine 
180: bdos: 


181: int 224  . . . -entry to BDOS if by INT 
182: ret 

183: | 

184: abort: sreturn to CCP 
185: mov cEs0 

186: call: bdos suse function 0 to end e 
187: ; 

188: ; utility subroutines for console i/o 

189: ; 

190: getchr: | 

191: ;read next console character to a 

192: mov cL, coninv | 

193: call bdos 

194: ret 

195: ; 

196: Duteéhr: 

197: ¡write character from a to console 

198: mov cl ,conout 

199: mov dl,al B ;character to send 
200: call bdos ¿send character 
201: ret 

202: ; 

203% Grlf: 

204: ¿send carriage return line feed 

205: mov al,cr ¿carriage return 
206: call DUtene 

207: mov al,lt ¿line feed 

208: call Dutchr 

209: ret 

210: ; 

¿llr orint: 

212: ¡print the buffer addressed by dx until S 
2135 push dx 

214: cali ELE 

215: pop dx ;new line 

216: mov cl,pstring 

2143 call bdos «print the string 
218: ret 

219: 


220: readcom: 
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a And HE a 
=—ASM=86 Error Messages 


Ñ = aii LLLI dil didi d 


There are two tvpes of error messages produced bv ASM-36: 
fatal errors and diagnostics. Fatal errors occur when ASM-86 is 
unable to continue assembling. Diagnostics messages report 
problems with the syntax and semantics of the voroaram being 
assembled. The following messades indicate fatal errors 
encountered bv ASM-86 during assembly: 


NO FILE "a 
MISX FULL - ; - 
DIRECTORY FULL 

DISK READ ERROR 
CANNOT CLOSE . ines. t " 
SYMBOL. TABLE OVERFLOW .  - = 
PARAMETER ERROR. i 


— 


ASM~86 reports semantic and syntax errors ov placing a 
numbered ASCII message in front of the erroneous source line. If 
there is more than one error in the line, only the first one is 
reported., Table H-l summarizes ASM-86 diagnostic error messages. 


t y.. , t- 


a À 
— - — — — wee . - a-— — € 0 ar —— P — - — 
- - — 
——— —— mw ot» - —_ 
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276: conbuf 


277» COnSiz 
278: conlin 


279: conlen 
280: ; 

281: 

282: stack 
283: 

284: 


db 
rs 
cs 
equ 


rs 
rb 
db 


end 


conlen 

1 

32 

offset 
il 


i 
0 


Appendix B Random Access Samole Proaram 


; Length of console buffer 
resulting size after read 
slength 32 buffer 

S — offset consiz 


:16 level stack 


;end byte for GENCMD 
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Table I-L. 


AMBIGUOUS OPERAND 


CANNOT CLOSE 


DISK READ ERROR 


DISK WRITE ERROR 


TNSUFFICIENT MEMORY 


MEMORY REQUEST DENIED 


NO FILE 


NO SPACE 


VERIFY ERROR AT s:o 
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^X DDT-86 Error Messages 


operand with the prefix 


Appendix | 


DDT-86 Error Messages 


An attempt was made to assemble a command 
with an ambiguous. operand.  Precede the 


"SYTE" or 
"WORD". 


The disk file written by a W command 
cannot be closed. 


The disk file specified in an R command 
could not be read properly. 


A disk write operation could not be 
guecessfully performed during a Y 
command, probably due to a full disk. 


There is net enough memorv to load the 
file specified in an R or E command. 


A request for memory during an R command 
could not be fulfilled. Up to eight 
blocks of memory may be allocated at a 
Given time. 


The file svecified in an R or E command 
could not be found on the disk. 


There is no space in the directory for the 
file being written by a Y command. 


The value placed in memorv by a Fill, Set, 
Move, or Assemble command could not be 
read back correctly, indicating bad RAM 
or attempting to write to ROM or non- 
existent memory at the indicated 
location. 
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Error Message 


|| CP/M-86 System Guide .' Appendix C Listing of the ROOT ROM -` 


QUE. . 2 true . |. equ ^ Qffh 


Bs FOC e false | co "^ . equ. . not true. 


¿debug s true indicates bootstrao is in same roms 
-with SBC 957 "Execution Vehicle" monitor 
sat FE00:0 instead ot FFO0:0 


e 
t 


000D er equ 13 
000A lf | equ 10 
A disk vorts and commands 
00AQ base204 equ 0a0h 
00A0 Fdecom equ base204+0 
-00A0 ^; Egdosbat . equ base204+0 
OOAL fdcparm - equ base204+1 - 
OOAL |. fdcrslt equ base204+1 
00A2 E4138 equ dase204+2 
00A4 dmacadr equ base204+4 
00A5 dmaccont i equ base204+5 
00A6 dmacscan - equ base204+6 
00A7 dmacsadr equ base204+7 
00A8 dmacmode equ base204+3 
00A8 dmacstat equ base204+8 
0049 £dcsel aqu base204+9 
COAA fdcseqment equ base204+10 
QOAF reset204 equ base204+15 
¡actual console baud rate 
2530 baud rate equ 9600 
¿value for 8253 baud counter 
0008 baud equ 768/(baud rate/100) 
00DA ests equ ODAR ;18251l status port 
00D8 cdata equ 0n8hn = 8 data port 
QODO Fen equ DDD hR 18253 PIC channel 0 
00D2 teh equ tchür2 36h DOES 
00D4 tone equ tchO+4 ¿ch 2 port 
00D6 temd equ tch0-6 +8253 command port 
00c0 icol equ DCD H «22593 port Q0 
00C2 lem equ 0C2h ;,8259a port 1 


" 
U 

* 
U 


IF NOT DEBUG 


ROMSEG £0U OFFOO0H snormal 
ENDIF 
IF DEBUG ‘share orom with 3B 
FEOO ROMSEG ENV OFROOR 
ENDIF 
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s ir e n dünn 
" aT Pav T PEA C MEE CES EL UTC P ME ee 





"s AAA, 34 


"e AAS, 34 


AAD, 34 
AAM, 34 


ADC, | — ens 


g ADD, 34 


address conventions in > 
ASM=$86,.. 2L 


mo address expression; 13 


allocate storage, 27- 


AND, 36 


eT) arithmetic operators, 15 


n | = 
bracketed expression, 18 


c Md En 2 Po 


of SORTS 40 Le 
. CBW, 34 Meum ur 
character string, 8 
CLC, 43 | 
CLD, 43 
CLI, 43 
CMC, 43 
CMP, 34 
CMPS, 33 
code seament, 22 
code-macro directives, 49 


» code-macros, 45 


— 


— 


— 


conditional assembly, 24 

console output, 3 

constants, 7 

control transter 
instructions, 39 

creation of output files, 2 

CSEG , 22 

CWD, 34 


D 
DAA, 15 


DAS, 35 
data seqment, 22 


data transfer, 3l 
DB, 45 "s 
DD, 26 

"TN DEC, 35 

zd define data area, 25 
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renn C re oe et 


- —flag registers, 


delimiters, 5 

directive statement, 20 
dollar-sign operator, 17 
DSEG , 22 

DW, 26 


E 


effective address, 21 
EJECT, 28 

END, 24 

end-of-line, 19 
ENDIF, 24 
EQU, 25 
ESC, 43 
ESEG, 23 
expressions, 18 
extra seqment, 23 


- — —— a 


E 


filename extensions, l 
flag bits, 30, 33 `- 
30. 
formal parameters, 43 


identifiers, 8 

IDIV, de 

IF, 24 

IN, 31 

INC, 35 

INCLUDE, 24 

initialized storage, 25 
instruction statement, i9? 
INT, 40 

INTO, 40 

invoking ASM-86, 2 
IRET, 40 


J 


JA, 40 
JB, 41 
JCXZ, 41 
JF, 41 


rT — - 


K 


CP/M-86 System Guide 


0025 
0027 
0029 
002B 
002D 


0002F 
0031 
0033 
0035 
0037 
0039 
003C 
003F 
0042 
0045 
0048 
0048 
004E 


0051 
0054 
0057 
0059 


005C 
0053F 


0062 
0066 
0069 


006€ 
0096F 
0072 
0075 
0078 


007C 


0082 


0086 
0088 
008A 


008C : 


008P 
0090 


All 


E6C2 


BOLE _ 


E6C2 
BOFF 
E6C2 


ESAF 
BOOL 
E6A2 
B000 
E6A2 
BB1502 
ESEIO0 


BB1B02 


E8DB00 
BB2102 
E8D500 
BB1002 
E85800 


8B2A03 
B80000 
SECO 

E8A700 


880202 
284700 


3E062D03 


BB0000 
239700 


BB0602 
E83700 
330B02 
E83100 


8C062802 


C706E6020000 


E9P3FF 


Appendix C Listing of the BOOT ROM 


out. icp2,al ;8259a ICW 2 
mov al,1lFh 
out icp2,al 
mov al,OFFh 


Out icp2,al 


vector A 40-5 
:8259a ICW 4 auto EOI mast 


:8259a OCW l mask all leve 


¿Reset and initialize the iSBC 204 Diskette Interfa 


restart: 


homer: 


“~e 


¡also come back here on fatal error 
out reset204,AL ;reset iSRC 204 logic and 
mov AL,l | 
out fdcrst,AL 
mov al,0 
out fdcrst,AL > a reset command 
mov BX,offset specsl 
CALL sendcom  ;proqram 
mov BX,offset specs2 
CALL sendcom ; Shugart SA-800 drive 
mov BX,offset specs3 
call sendcom =: characteristics 
mov BX,ofíset home 
CALL execute «home drive Q0 


¡give 8271 FDC 


mov bx,sectorl :offtset for first sector OM 
mov ax,Q 
mov es,ax 


call setup_dma 


¿segment " " " " 


mov bx,offset reado 
call execute :qet TU SL 


mov es,ARS 
mov bx,0 
call setup_dma 


;qet loader load address 
¡Setup "MA to read loader 


mov bx,offset readl 
call execute :read track 0 
mov bx,offset read2 
call execute ;read track 1 


mov leap segment,ES 
setup far jump vector 
mov leap offset,0 


enter LOADER 
jmpf dword ptr leap offset 


mov cl, [RX] 
Lact dl; 
32 return 
call conout 
inc BX 

jmp pmsg 
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ttt ls cl y cs ed rt ali * (^ — e ee — 


a o eee Ee ae v T vm 


(O——SIMFORM; 28— — ——- ; 
specifiers, 4T o 
| SSEG, 22 
E stack segment, 22 
starting ASM-86, 2 
statements, 19 
STC, 44 
STD, 44 
STI, 44 
STOS, 38 
D string constant, 8 
string operations, 38 ~~ 
SUB, 35 - 
symbols, 25 nc QM LOL 


— 


D esT, 37 Cott, 
- TITLE, 27 ee 
o 0 


— unary operators, 16 


——- — — mm --- — . ——= . s — =-. 


V 


variable manipulator, 16 
m variables, 19 


W 


WAIT, 44 


.- XCHG, 32 
XLAT, 32 
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0023 
DUES 


E4AQ 
A880 


00E7 75SPA 


00729 881E0002 
QOED E9BDFT 


00F0 
00F2 
00F4 


QOFS 
QOFB 
QUE 
QOFF 


0102 


0103 
0105 
0107 
0109 
0108 
010D 
010F 
DLL 
0113 
0115 
4117 
0119 
0113 
011D 
0117 


QZY 
0122 
0124 
0126 
0128 
0129 
0123 


912D 
0127 
0131 


0132 
0134 
0136 


B400 
8Bn8 


8B9F2702 


ES88BFF. 
ESA0FF 


58 


E92DFF 


Cs 


B004 
E6A8 
B000 
ESAS 
BO40 
ESAS 
8cco 
ESAA 
SAC4 
EGAA 
SBC3 
ESA4 
8AC4 
Z6A4 
G3 


E4A0 
2480 
75FÀ 
8AOF 
43 

8A07 
ESAO 


TEC 
74D1 
43 


E4A0 
2420 
75FA 


rd_poll: 


appendix ^. Listing of the BOOT RW 


in al,fdc stat 
test al,80h . 
inz rd coll - 


mov bx,last com 


imp 


H 

Fatal: 
Mov 
mov 


retry 


an,0 
bx,ax 


. yrecover last attem 
. rand try it over ag 


: fatal error 


¡make 16 bits 


mov ox,errtbdbl [Bx] 


~a 


call omsg 
call conin 


DOP 
imp 

; 

return: 
RET 

; 

setuodma: 
mov 
Out 
mov 
out 
mov 
out 
mov 
out 
mov 
out 
mov 
que 
mov 
out 
RET 

d 


; 
: 
sendcom: 


and 
302 
MOY 
LIG 
mov 
out 
parmloop: 
dec 


ax 
restart 


AL,04h 
dmacmode,AL 
a1,0 
dmaccont,AL 
AL, 40h 
dmaccont,AL 
AX ,ES 


print aoprovriate error message 


«wait for kev strik 
discard unused ite 
«then start all ove 


«return Erom EXECUT 
;enable dmac 


¡set first (dummy) 


«force read data mo 


fdcsegqment, AL 


AL, AH 


fdcsegment,AL 


AX ,BX 
dmacadr ,AL 
AL,AH 
Amacadr ,AL 


;routine to send a command string * 
in AL,fdcstat 


AL,80h 
sendcom 
CL, {8X] 
BX 

al, [BX] 
fdccom,AL 


Ch 


Jz return 


inc 
parmpoll: 


BX 


in AL,fdcstat 


and 
inz 


AL,20h 
parmpolli 


:insure command not busy 
¿get count 


¿point to and fetch command 
send command 


«see if any (more) vuaramete 
¿point to next parameter 


:loop until parm not full 
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swait for command n . 
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. C4138 8A07 mov AL, [RX] 
7013A E6AL out fdcparm,AL  ;outout next parameter 
013C ESZEEFF imp oarmiooo :go see about another 
: Image of data to be moved to RAM 
013P drombegin equ offset S 
013F 0000 clastcom dw 0000n ;last command 
0141 03 creadstring Ab 3 : length 
0142 52 db 52h ,read function code 
0143 00 db 0 track + 
0144 01 db ji «sector % 
0145 04 creadtrk0 db 4 
0146 53 db 53h read multiple 
2147 00 ab 0 ecrack 0 
-3148 02 db 2 *Sectors 2 
0149 19 db 25 schrough 26 
014A 04 creadtrkl db 4 
0148 53 db 53h 
014C 01 ab ji ¿track L 
0l4D Ol Ab t «sectors 1 
014E LA Ab 26 ‘through 26 
O14F 026900 chome0 ab 2,69h,0 
0152 016€ crádstat0 db 1,6ch 
0154 05350D cspecsl db 5,35h,0dh 
0157 0808E9 db 08h,08h,0e9h 
015A 053510 cspecs2 db 5,35h,l10h 
015D FFFFFF ab 255,255,255 
0160 053518 especs3 ab 5,35b,18h 
0163 FFFFFF db 255,255,255 
3166 4702 cerrtb) dw offset er0 
70168 4702 dw " offset erl 
016A 4702 dw offset er2 
016C 4702 dw offset er3 
OL6E 5702 dw offset erá 
0170 6502 dw offset er5 
0172 7002 dw offset er6 
0174 7702 dw offset er? 
0176 9002 dw offset er8 
0178 A202 dw offset er9 
017A 8202 dw offset erA 
017C C502 dw offset erB 
017E D302 dw offset erC 
0180 4702 dw offset erD 
0182 4702 dw offset erE 
0184 4702 dw offset erF 
0186 ODOA4E756C6C Cer UÜ ab cr,lf, Null Error ?7° ,0 
AT 
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204572726F72 
203P3F00 


0186 
0136 
0186 


0196 


01A4 


OLAP 


OLBE 


0 LCF 


0204 


0212 


0D0A436C6F63 
68204572726F 
7200 
0D0A4C617463 
20444D4100 
0D0A49442043 
524320457272 
6F7200 
0D0A44617461 
204352432045 
72726F7200 
0D0A44726976 
65204E6F7420 
526561647900 
0D0AS7726974 
652050726F74 
65637400 
0pD0A54726B20 
3030204E6F74 
20466F756E64 
00 
0D0A57726974 
6520466175366 
7400 
0D0A53656374 
6F72204E6F74 
20466F756E64 
00 


0186 
0136 
0186 
0223 


QOE6 


0000 


0200 


0200 
0202 
0206 
0208 
0210 
0214 
0215 


Guide 


Ceri 


» Cer2 


Cer3 
Cer4 


Cer5 


Car6 


Cer? 


CerB 


Cerc 


CerD 
CerE 
CerF 


equ 
equ 
equ 
db 


db 


db 


db 


db 


db 


db 


db 


db 


equ 
equ 
equ 


t 
dromend equ 


data_length 


Aooendix Z 


Listing of the BOOT ROM 


cerú0 

cerd 

Ger U l 
cr,lf, Clock Error” 0 


cr,lf,"Late DMA^,0 


cr,]f,^ID CRC Error” ,0 
cr,lf,^Data CRC Error” ,0 
cr,lf,^Drive Not Ready” ,0 
cr,1f, "Write Protect” ,0 


cr,lf,"^Trk 00 Not Found” ,0 


cr, f, Write Fault’ ,0 


or,1f,*Sector Not Found” ,0 


cerQ 
Ger U 
ceró 


offset S 


t 
; reserve 
; (no hex 
H 
dseg 
org 
, 
ram start 
lastcom 
reado 
readl 
read2 
nome 
rdstat 
specsl 


equ dromend-drombegin 


space in RAM for data area 
records generated here) 


0 

0200h 

equ 5 

rw 1 «last command 

cb 4 «read track 0 secto 
P = “¿read TO S2-26 

rb 5 «read T1 S1-26 

rb 3 :home drive 0 

rb 2 «read status 

rb 4 
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“Sin 


0221 


. 0227 


0247 
0247 
0247 
0247 

0257 

0265 

0270 

027F 

0290 

02A2 

0.252 

0205 

0 2D3 
0247 
0247 

. 0247 


032A 


032A 
0328 
9320 
0327 
0331 


^ Listina of the BOOT ROM 


Appendix 

specs? rb 6 
specs3 rb 6 
errtbi rw 16 -- | €: Ro 
ero rb length cerd 716 
erl equ er. 
er 2 equ er U 
er3 equ er Ù 
er4 rb length cer4 214 
er5 rb length cer5 TO 
erf rb length cers 215 
er? r5 length cer? L7 
erg rb length cer8 : 18 
er 7 rb length cec9 16 
erA ES length cerA 719 
ers rb length cerR 14 
erc ro length cerc Lo 
erD equ er( 
erE equ er U 
err equ er U 
leap offset rw L 
leap_segment rw 1 

cw 32 local stack 
stack offset equ offset S:stack from here do 
; TO Sl read in here 
sectorl equ offset S 
Ty rb l 
Len tw L 
ADS cw L :ABS is all we care 
Mín rw 1 
Max rw l 

end 
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dede eode cde de dede dede che de ede de dede de de de ede de eode de de de de dede de de de cie e e oe de de de cec dece eco e 


This the the LOADER BIOS, derived from the BIOS 
program by enabling the "loader_bios" condi- 
“ional assembly switch. The listina has been 
edited to remove portions which are diuo'icated 
in the BIOS listing which appears in Appendix n 
where elipses "..." denote the deleted portions 
(the listing is truncated on the right, but can 
be reproduced by assembling the BIOS.A86 file 
provided with C?/M-86) © | pe 


+ + E + + + A HA OF 
XA OX + X Xx X t ot ++ 


dede ce Je de de de ede de ede de de de de cde cc e de de de de ee de koe e e de de de dee e e cde de e dece e dece e € 


Je ee de de de de e de ode de dede de cie de dece de ce cede dece ode e k e dece de dede e e e dece de e KK X 


Basic Invut/Outout System (BIOS) for 
CP/M-86 Configured for iSBC 86/12 with 
the iSBC 204 Floopy Disk Controller | 


(Note: this file contains both embedded 

tabs and blanks to minimize the list file 
width for printing purposes. You mav wish* 
to expand the blanks betore performing * 
major editing.) N 
dede de de de RK KKK cde oe ce dede Ak kk KA de eode de cde KX de dece de e e e x 


KA + xx 4+ X T 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


1 
~e SS w4 99 9 we We WE 8 WH 9 -9 


Copveiqht. 10) 11980,1991 
Digital Research, Inc. 
Box 579, Pacific Grove 
California, 93950 


(Permission is herebv granted to use 
or abstract the following program in 
the implementation of CP/M, MP/M OF 
CP/NET for the 8086 or 8088 Micro- 
processor) 


we "6 p wa we HH “+ HH 0598 C99 


FFFF true equ -1 
0000 false equ not true. 
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OS 


ESPE 
00EO 


1200 
0003 
0406 


1200 E93C00 
1203 E96100 


1239 E96400 
123C £96400 


System 


Guide à^oendix D LM3IOS Listina 


e. 3e e de Je de dp cie de de dee e de de de de je de cir de decir dn it ie dee ode de je de de je je he cie e sie oie diee de den K 
f 


* 
;* Loader bios is true if assembling the d 
:* LOADER BIOS, otherwise BIOS is for the w 
;* CPM.SYS file. Blc list is true if we * 
cX have a serial printer attached to BLC8538 * 
;* Bdos int is interrupt used for earlier w 
;* versions. " 

* 

* 


s 3t de de je de ce e de de e de e e de ede de jede de eode Se de ee e de le de e KE dee e dede 


loader bios equ true 


ble List equ true 

odos int equ 224 ;reserved BDOS Interrupt 
LF not loader bios 

H mmi GAB anp umb eui. dini daii i, Ly GD i Gnd - ee Ape cum ee cmm md ee i i umb ND Ce 

; | | 

| | 


IF loader bios 
; | | 
bios code equ 1200h ;start of LDBIOS 
ccp offset equ 0003h ;base of CPMLOADER 
bdos ofst equ 0406h ;strioved BDOS ri 


U 


É —— cee app mp aus m, a ee DO ee A ee O cuum CER d CUP um amu HEB AA ee ee ee ee md ee ee ee ee P P P a -— — a oe ae — oe 


ENDIF ;loader bios 


cseg 
org ccpoffset 
COD: 
org bios code 
. e t de de de de e de de de de cde de de dede de dede de de de de te de de e de HH de de eee dee dee ES 
r Ñ * 
;* BIOS Jump Vector for Individual Routines * 
(t * 


t 


s te e e t oe e e de RR KK e de oe e de dede de de de e e ce see ee eie dec o ee ES 


jmp INIT «Enter from BOOT ROM or LOADER 
¿imp WROOT Arrive here from BDOS call 0 
jmp GETIOBF «return I/O map byte (IOBYTE) 
mp SETIOBF set I/O mao byte (IOBYTE) 
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1243 
124C 
124F 


lén 
LZ5d 
12238 


123C 
L25F 
2202 
1264 


1267 
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8ccs 
BENG 
8ED8 
8EC0 


BCA916 
zc 


lE 
380000 
8ED8 


C70680030604 
8C0E8203 


17 


BB1514 
E85A00 
B100 

E99ICED 


£99FED 
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SG kde ERE RRR ROUGE HORE RACER REO RO E I I I nn 


.* * 


-* INIT Entry Point, Differs for LDBIOS and 


.* BIOS, according to "Loader Bios" value 
a * 


¡ERRE RARA AAA RRE REA ALAN 


x 
* 


INIT: sprint signon message and initialize hardwa 
mov ax,cs «we entered with a JMPF so 
mov ssS,ax > CS: as the initial value 
mov ds,ax ; ns:, 
mov es,ax : and ES: 
suse local stack during initialization 
mov sv ,offset stkbase 
ela «set forward direction 
LE not loader_hios 

; | | 
: This is a BIOS for the CPM,SYS SEP 
ENDIF snot loader bios 
IF loader bios 

:| | 
>This is a BIOS for the LOADER 
push ds «save data segment 
mov ax,0 
mov ds,ax point to seqment Zero 
BDOS interrupt offset 
mov bdos offset,bdos ofst 
mov bdos segment,C$ :bdos interrupt segment 

| DOD AS «restore data Segnene. 
ENDIF ;loader bios 
mov bx,offset signon | 
call pmsg sprint signon message 
mov ¢c1,0 : default to dr A: on coldst 
jmp ccp ejump to cold start entry o 

WBOOT: jmp ccp+6 «direct entry to CCP at com 
LE not loader bios 

; | | 

r | 
ENDIF snot loader Dios 
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126A 


1272 


1273 


127D 


1291 


L292 


129C 


129D 
129F 


E4DA 


C3 


ESGFAFF 


E4DA 


£80700 


ES 


E441 


C3 


BU LA 
ES 


EN y 
L 


Guide Appendix n^n. LPBIOS Listing 


e dE i T 
, 


ot CB /M Character 1/0 Interface Routines * 
.:*. ..Console.is.Usart. (i825la)..on-iSBC-86/12 *  — 


P* at ports D8/DA * 
. + 


. *t it e cin ede de diede die de ole e e ele de le e de dede AAA ede de ir ie e ele de de de dede ode de de dt d 0f 


CONST: 





«console status 
in al,csts 
const_ret: 
ret- «Receiver Data Available 
CONIN: | ¿console input 
call const 
CONOUT : ;console output 
in al,csts 
LISTOUT: "list device output 
IT olc list 
; | | 
| call LISTST 
; | 
ENDIF ;blc list 
ret 
LISTST: ¿poll list status 
IF blc list 
Y. a. LI ft Pp lp dp eee ee ee ee ee l1 ee ee ee ee ee 0. ee CU, ee ee ee EA es E ee ee k at 
; | 
in al,lsts 
: | 
ENDIF ¡Die list 
ret 
PUNCH: snot implemented in this configuration 
READER: 
mov al,lah 
ret :return EOF for now 
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12A0 
12A2 


12A3 


12A4 
12A6 


12A7 


L2CA 


1300 
1304 


1305 
1309 


130A 


1311 
1315 


1316 
L31A 


131B 
SARE 


e 


8000 
C3 


C3 


2400 
C3 


BB0000 


C606311500 


880E3115 
C3 


880E3215 
Cs 


8BD9 


890€82A15 
c3 


890E2CIS5 
co 


BB3815 
C3 
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GETIOBFE: 

mov al,0 ,TTY: for consistency 

ret :IOBYTE not implemented 
SETIOBF: l 

ret ;iobvte not implemented 
zero ret: 

and al,0 
ret «return zero in AL and flag 


» Routine to get and echo a console character 


. and shift it to upper case 
uconecho: | 

| call CONIN sget a console character 
« e e de de de de de de de de de de de de de de de oe de e de e je de de de de de de de e e de e de e cie e de dee odo de 
e $ 
t 
)* Disk Input/Output Routines k 


* 
s * 
Pee de de de de de je jede de de de de dede ede ede de eee dede ie de dee e dee de de eee 
t 
SELDSK: «select disk given by reqister CL 
mov bx,0000h 


* L * 


HOME: move selected disk to home position (Track 
mov trk,0 eset disk i/o to track zero 


SETTRK: ;set track address given by CX 
mov trk,cl «we only use 8 bits of trac 
ret 


SETSEC: ;set sector number given by cx 
mov sect,cl «we only use 8 bits of sect 
ret 


SECTRAN: ¡translate sector CX using table at [DX] 
mov bx,cx 


SETDMA: :set DMA offset given by CX 
mov dma adr,CX 
ret 


SETDMAB: ¿set DMA segment given by CX 
mov dma seq,CX 
ret 


Q~ 


ETSECT: ¡return address of physical memory table 
mov bx,offset seg_table 


ret 
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*e 3t de k oe de de de de de ie e de ie de de e dede cde e ese de de dede de de e h dt de sit T de de ie de de de e dede 


* 
All disk I/O parameters are setup: the * 
Read and Write entry points transfer one * 
sector of 128 bvtes to/from the current * 
DMA address using the current disk drive N 

* 


+ + 0 X*X 0X 0X X OF 


-— wo "bd 0999 99 9 -$ 


Je 3e de de de de e ee de de dede dee oe or ie de oir de ye sje de de de de e dee XY onde eode de e de oe oie dede de xn 


READ: 
l3lF B012 mov al,12h «basic read sector command 
2321. 5302 jmps r w common 

WRITE: 
1323 800A mov al,Qah :Dasic write sector command 


r w common: 
1325 BB2FIS mov bx,offset io com ;point to command stri 


s e e e de je de de oe e e de de oe de dee e e de de de de de de de e de de de de ee Te e de le e de e e ee e K 


p* ii 
.* Data Areas a 
"Es ii 
s e st e Je de de de e de e ce e de de dede e de de de de e de de e e je e ce e dece e dece e de e de e e e e de we 
1415 data offset equ offset 3 
dseq 
l org data offset ¿contiguous with co 
IT loader bios 
Ge DEDE 
1415 ODOAODOA signon db op aera carn E a 
1419 43502F4D2D38 db “OP /M—-86 Version 2.2°%,cr,1%,0 
362056657273 
69676E20322E 
320p0AO00 
E) 
ENDIF ;loader bios 
IT not loader bios 
| 
— : | » * 9 | 
ENDIF ;not loader bios 
142F 0D0A486F6065 bad hom db cr,lf,^'Home Error ,cr,1f,0 
include singles.lib ;read in disk definitio 
S ; DISKS 2 
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RE L541 dobase equ 5 ¡Base of Disk Param 
=1668 00 do 0 «Marks End of Modu) 
1669 loc stk rw 32 ¡local stack for initialization 
16A9 stkbase equ offset S 
16A9 00 db 0 -fill last address for GENCMN 
pH KKK ele RR KO RO KKK KKK 
e * * 
D* Dummy Data Section k 
s X * 
ERE RR ER RRR ER EERE EE EER ER EKER E EES 
0000 | asea 0 „absolute low memorv 
org 0 . (interrupt vectors) 
END 
iti. 
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NN Appendix E | 
BIOS Listing 


de dede dec de de de dede ode de de de dede ede e dece cde de de de e ie de dede e e ce e e de e c oe e ce e de oe de e de e e SE 


This is the CP/M-86 BIOS, derived from the BIOS 
program by disabling the "loader bios" condi- 
tional assemblv switch. The listina has been 
truncated on the right, but can be reproduced 
bv assembling the BICS.A86 file provided with 
CP/M-86. This BIOS allows CP/M-86 operation 
with the Intel SBC 86/12 with the SBC 204 con- 
“roller. Use this BIOS, or the skeletal CBIOS 
listed in Appendix E, as the basis for a cus- 
tomized implementation of CP/M-86. 

provided with CP/M-86) à 


ERAS Oe OF OF OF o 


A 


* 
de e dece KK KEK de de ede LLL AA RARA cde de ce dece AAA 


+ + A + + + + € R + F&F N H N 


pe RRR RRR KER EERE EERE EERE REE REE ERE EES 
* 

Basic Input/Output System (BIOS) for 
CP/M-86 Configured for iSBC 86/12 with 
the iSBC 204 Flopoy Disk Controller 


(Note: this file contains both embedded 

tabs and blanks to minimize the list file 
width for printing purposes. You may wish* 
to expand the blanks before performina * 
major editing.) N 
oR e e e dede ode dee de ok ko ok dede ooo E RES o ® 


+ + + + + A + 


a ^" ^e ^d ma. ê ae É - =e ^9 =e 
N + + + + + Y X d 


" : Copyright (C) 1980,1981 
Digital Research, Inc.. 
Box 579, Pacific Grove 
California, 93950 


-s - ~% 


=e 


(Permission is hereby granted to use 
or abstract the following program in 
the implementation of CP/M, MP/M OF 
CP/NET for the 8086 or 8088 Micro- 


"o 


~s ^s -* 


; processor) 
EEEE true equ -1 
0000 false equ not true 


2 
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0000 
Serer 
QOEO 


2500 
0000 
0B06 


OODA 
00D8 


0041 
0040 
0060 


ALL 


:;* LOADER BIOS, otherwise BIOS is for the 


E e de kt de sie de ot de de de de de de de AAA sir de de de de de ier de de de 9t je de de oe de oe de dese de se n dn 
; 


;* Loader bios is true if assembling the 


;* CPM.SYS file. Blc list is true if we 

:* have a serial orinter attached to BLCB8538 
;* Bdos int is intercubt used for earlier 

7* versions. 


* + + * x y % Y 


» e e e de de ede de de de dede je dede ie de de de de dede dede de de je decode oe de de dece dede de te de it de Sn de 





loader bios equ false 

Ble 118€ equ true 

odos_int equ 224 ¡reserved BDOS Interruvbt 
LE not loader bios 

: | 

bios code equ 2500h 

ccp offset equ 0000h 

bdos ofst equ 0806h ;RDOS entry ooint 
SNDIF ¡not loader Dios 
IP loader bios 

7 | 

cios code equ 1200h ;start of LDRIOS 

ccp offset equ 0003h ;base of CPMLOADER 


bdos ofst equ 0406h ;strioped BDOS entrv 


ENDIF ;loader bios 


csts equ ODAh ;13251L status sort 

cdata equ ODp8h ; " data cort 
TE ble list 

H — m, a SU n m a (mb la, cds ii ae cr nl: eru GARD (UN mp p uum umm r a e Cow coms umb cud AR ED n qum A inna iil 

a | 

Lsts 2 41h ;2651 No. 0 on BLC8538 stat 

ldata equ 40h ; " " Wu 9 fata 

olc reset equ 60h ;reset selected JSARTS on 8 

H t 

> 777 — A— aA eee au um P ee d cum auum ee mi 0 ep NEN GENS GEM SENS es ee comb umb SUR ee CUM Gm Gum umm Gum "umb ud re A m um P 
SNDI? Fle hist 

; oe e e de de ce ce de ce e e e de de de de Pee de e e e oe de de de de de dede de ce ede e e e e e EK 

. * * 

f 

= Intel iSBC 204 nisk Controller Ports * 

.* * 

? 

e c de e e e e de de de e e e e e e dede e dede e e e e de e de e e e e e ee e e RR e e HH 
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a 00A0 


00A0-: 


00A0 
00A1l 
00A1l 
00A2 
00A4 
00A5 
00A6 
00A7 
00A8 
00A8 
00A9 


QOAA ` 


00AFP 
000A 


000D 
000A 


base204 


£dc com 


fdc stat 
fdc parm 
fdc £510 
tdc rst 
dmac, adr 
dmac cont 
dmac scan 
dmac sadr 
dmac mode 
dmac stat 
EOG se! 


Appendix E 


ATOS Listing 


equ Oath -SBC204 assigned ad 
equ base204+0 28271 FNC out comma 
eau base204+0 A271 in status 

equ base204+1 5271 out parameter 
equ base204+1 .8271 in result 

ecu base204+2 "S271. OUT reset 

equ base204+4 .8257 DMA base addr 
equ base204+5 .R257 out control 
equ base204+6 8257 out scan cont 
equ base204+7 :8257 out scan addr 
equ base204+8 8257 out mode 

equ base204+8 :8257 in status 

equ base204+9 :FDC select bort ín 


2500 
2503 
2506 

. 2509 

250C 
250F 
2512 
2515 
2518 
2518 
251E 
2521 
2524 
2527 
252A 
252D 
2530 
2533 
2536 
2539 
253C 


^j 


All 


E93C00 
E98400 
E99000 
£99600 
E99500 
E9A500 
E9B700 
E9B400 
E9FFOO 
E9DBOO 
E90E01 
E91001 
E91901 
E92401 
E9250L 
E99100 
E90601 
ESOFOL 
ES1101 
E99300 
E99300 


rdc "Segment 
reset 204 


max retries 


cr 
1e 


cep: 


cseq 


org 


Org 


eau base204+10 
equ base204+15 


:Seqment address re 
«reset entire inter 


equ 10 :max retries on dis 
"before oerm error 


equ Odh Carriage return 
edu Dan «line feed 
ecpoffset 

bios_code 


Lodo ede kde dede ede de oe de de de de ede ERK EERE e ce de e e KEKE KEE ES 


4 


* 


s Y 


* 


:* BIOS Jump Vector for Individual Routines * 
: k 
H 


. ETI EEE KEE KKK ode oe de ede cce de ke de e de cde KK ee eco ke e ek ed 


Imp 
jmp 
mp 
imp 
imp 
jmp 
jmp 
jmp 
3mp 
jmp 
jmp 
imp 
jmp 
jmp 
imp 
imp 
Imp 
jmp 
jmp 
jmp 
jmp 


iNIT 
WBOOT 
CONST 
CONTIN 
CONOUT 


LISTOUT 


PUNCH 
READER 
HOME 
SELDSK 
SETTRK 
SETSEC 
SETDMA 
READ 
WRITE 
LISTST 


SECTRAN 
SETDMAB 
GETSEGT 
GETIOBF 
SETIOSE 


Tnformation Presented Here 


«Enter from BOOT ROM or LOADER 
-Arrive here from BROS call 0 
“return console kevboard status 
return console keyboard char 
“write char to console device 
“write character to list device 
«write character to punch device 
«return char from reader device 
«move to trk 00 on cur sel drive 
«select disk for next rd/write 
«set track for next ra/write 
set sector for next rd/write 
«set offset for user buff (DMA) 
-read a 128 byte sector 

ewrite a 128 byte sector 

“return list status 

>xlate logical->physical sector 
-set seg base for buff (NMA) 
«return offset of Mem Desc Table 
return 1/0 map byte (IOBYTE) 
«set I/O map byte (IOBYTE) 
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253F 
2541 
2543 
2545 


2547 
254A 


2548 
254C 
254F 
2391 


29333 
2239 
2330 
2360 
2563 


2566 


2568 
208 


256F 
2574 
22913 
2575 
2513 
2979 
2919 
257D 
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; de dede MEER EERE EERE OR RR ROI HR e Redde 
oa LL Roe es : Me y EE 
cem ; 

;* INIT Entry Point, Differs for LDBIOS and * 
-s* BIOS, according to "Loader Bios" value Xe Um sumus 

PES SEL. ES * vas 

f : 

s Ae dee de de de de de dede dede je de decide dede de de ie dede cde dede ete dee desee ede NARRAR 


. INIT: ;orint signon message and initialize hardwa 
8CC8 mov ax,cs swe entered with a JMPF so 
8EDO mov ss,ax : CS: as the initial value 
8ED8 mov ds,ax H DS:, 
3ECO mov eS,ax . and FS: 

ý suse local stack during initialization 
BCE429 mov sp,offset stkbase 
FC eld ¿set forward direction 
IB not loader bios 
; | | | 
; This is a BIOS for the CPM,SYS file. ) 
: Setup all interrupt vectors in low 
: memory to address trao 
LE push ds ¡save the DS register 
880000 mov ax,0 | 
3EDS mov ds,ax 
BEC Ù mov es,ax «set FS and DS to zero 
¿setup interrupt 0 to address tran routine 
C70600008D25 mov intO0 offset,offset int trap 
8C0E0200 mov intO segment,cs 
BF0400 mov di,4^ 
BE0000 mov si,0 ; then propagate 
B9FE01 mov cx, 510 strap vector to 
F3A5 rep movs aX,ax ¿all 256 interrupts 
:BDOS offset to proper interrupt 
C70680030608 mov bdos offset,bdos ofst 
LF poo ds “restore the DS register 
ye e e e eee dee de de de de de de dede oe e je dede RRA HK RARA RARA AAA e e 
. Y * 
:* National "BLC 8538" Channel 0 for a serial* 
:* 9600 baud printer - this board uses 8 Sig-* 
:* netics 2651 Usarts which have on-chio baud* 
;* rate generators. = 
.* * 
y E E E E E Se FE SE ESE E RRA RARA AAA Ke e d eR eR de RR RR KO RU 
BOFF mov al,0FTFh 
E660 out blc reset,al :reset all usarts on 8538 
BO4E mov al,4Fh 
£642 out ldata+2,al ¿set usart 0 in async 8 bit 
BOJE mov al,3Eh 
E642 out ldata+2,al ¿set usart 0 to 9600 baud 
8037 mov al,37h 
E643 out ldata+3,al ¡enable Tx/Rx, and set up R 


J 
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————c; a — P — P e E oe =p oe du ua aub uud dE GEHE APA cum a EP GG Am a Gat Cup ai cies T TD. a m 


ENDIF ¿not Loader bios 


^ 


"8 b 


LE loader bios. 


This is a BIOS for the LOADER 

push cds 'Save data segment 

mov ax,0 

mov ds,ax ;:oOoint to segment zero 
BDOS interrupt offset 

mov bdos offset, bdos ofst 

mov bdos  Sedment, is "bdos interrupt segment 
pop ds restore data segment 


ENDIF ;loader bios 


—257F BB4427 
2582 £86600 


mov bx,offset signon 
call pmsq print signon message 


2585 Bl00 mov cl,0 «default to dr A: on coldst 

2587 E976DA jmp ccp "jump to cold start entry o 

258A E979DA . NBOOT: jmp cep+6 “direct entrv to CCP at com 
LE not loader bios 


int. trao: 


258D FA ed MN «block interrupts 
258E 8CC8 mov ax,cs 
2590 8ED8 mov ds,ax «get our data seqment 
2592 BB7927 mov bx,offset int trp 
2595 E85300 call omsa 
2598 F4 nlt shardstop 

=~ ENDIF ;not loader bios 


oR KR REE E EERE EERE EERE EEE REE EE HK ER EES 
ot 


* 


CP/M Character 1/0 Interface Routines 


* 
i 
ud Console is near k (i8251a) on iSBC 86/12 * 
"e at ports D8/DA * 
s * * 
a I RR IR RII IE RI IER IEEE HE ERED 
CONST: «console status 
2599 E4DA in al,csts 
2598 2402 and al,2 
259D 7402 jz const ret 
259F OCFF or al,255 return non-zero it RDA 
const ret: 
25A1 C3 T ret ‚Receiver Data Available 
fon 
3] 
Ed 
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23A2 
25A5 
25A7 
25A9 
25AB 


25AC 
25AE 
2580 
49B2 
25B4 
2536 


23B7 
25BA 
2386 
¿SBE 


290i 
2303 
2205 
23C] 
2309 


25CB 


-ESP4FF - 


74FB 
E4n8 
2477 
C3 


E4DA 
2401 
74PA 
gacl 
E6D8 
C3 


E80700 


7443 
8ACI 
E640 


E441 
2481 
GOL 
750A 
OCFF 


BOLA 
C3 


8000 
C3 


— 


Anpvendix = RTOS Listing 


CONIN: «console inout 
| pag ET Const = 
iz CONIN wait for RDA 
in al, ,cdata . 
and al,7th eread data and remove varit 
ret 
CONOUT : ¿console output 
in a?,csts | 
and al,l get console status 
3z CONOUT «wait for TRE 
mov al,cl 
out cdata,al ¿Transmitter Buffer Empty 
ret ¿then return data 
LISTOUT: - ¿list device output 
LE Dic list 
H — m, "END EID ee ee ee ee ee ee ee "EG GN GEM ee es r P GE umm m es k ñ amd cmd dk e umi h, et ee umb d AES 
; | 
call LISTST 
12 LISTOUT ¿wait for orinter not busy 
mov al cl 
out ldata,al :Send char to TT 310 
ENDIF ¿QLO. list 
ret 
LISTST: ¿poll list status 
IF bio list 
AU clc emu UU EUU 
pol | 
in al,lsts 
and al,81h “look at both TXRDY and DTR 
cmp al,81h 
inz zero cet ¡either false, printer is b 
or al,255 ;both true, LPT is ready 
; | 
ENDIF ¿blc_tist 
ret 
PUNCH: ¿not implemented in this configuration 
READER: 
mov al,lah 
ret return EOF for now 
GETIOBF: 
mov al,0 ¿TZ? for consistency 
ret : TOBYTE not implemented 
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25D2 


25D3 
25n5 


25355 
25ED 
25EF 
Zor. 
aorta 
25F6 
2557 


25379 
25FC 
Zoe. 
2601 
2603 
2606 
2608 
260A 


260D 
260F 
2611 


Ga 


2400 


hat ow” 


ESCITT 


50 
BAC8 


ESCDFF 


58 

3C61 
7206 
JI TA 
7702 
2020 


C3 


8A07 
84C0 
7428 
8AC8 


ESBEFF 


EBEZ 


BB0000 
80F902 


7318 
B080 


80F900 


7502 
B040 


A26928 


B500 
8BD9 
B104 


Apoendix = BIOS Listings 


SETIOBF: - 


ret siobyte not implemented 


zero ret: 


ret 


P 
t 
* 
, 


and al,0 
return zero in AL and flag 


Routine to get and echo a console character 


and shift it to upper case 


uconecho: 
call CONIN get a console character 
push ax 
mov cl,al «save and 
call CONOUT 
POD ax ¿echo to console 
cmp al, “a” 
ib uret less than “a” is ok 
cmo al,'/z^ 
ia uret ;qreater than z^ is ok 
sub al,^a^-'"A^ ¡else shift to caps 
uret: 
ret 
; utility subroutine to print messages 
pmsq: 


mov al, [BX] 
test al,al 
jz return 
mov CL,AL 
call CONOUT 
inc BX 

jmps pmsg 


¿get next char from message 
caf zero return 
«print 18 


«next character and looo 


AREREARRERARAARRA EREEERRERE ER EERE ERE EEE SES 


t 


* 


Disk Invut/Nutput Routines T 
* 


RRA RRA RARA RARA RARA RARE RE EERE EERE ERE REE ES 


SELDSX : 


sell: 


«select disk given bv register CL 
mov bx,0000h 
emp cl,2 
jnb return 
mov al, 80h 
cmo cl,0 
¿ne sell “drive 1 if not zero 
mov al, 40h else drive is 0 
mov sel_mask,al ¡save drive select mask 

l s now, we need disk paramete 


«this BIOS only supports 2 
«return w/ 0000 in BX if ba 


mov ch,0 
mov bx,cx BX = wOord(CL) 
mov cl,4 
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2613 
2515. 


2619 


261A 
261F 
2622 
2625 
2627 
262A 
262D 


262F 
2633 


2634 
2638 


2639 
2638 
263D 
263F 


2640 
2644 


2645 
2649 


264A 
264D 


2642 
2650 


All 


D3E3 
81C37C28.. 
C3 


C6066C2800 


BB6E28 
£83500 
74F2 
BB6A27 
ESBEFF 
ESEB 


880E6C28 
C3 


880E6D28 
C3 


8BD9 
03DA 
SALP 
cs 


890E6528 
C3 


890E6728 
C3 


BB7328 
G3 


3012 
EB02 
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shi bx,cl ¿multioly drive code * 16 
¿create offset from Disk Parameter Base 


-== -= . add bx,offset do base - -— vilaat 


return: 
ret 

HOME: . ¿move selected disk to home position (Track 
mov trk,0 ¿set disk i/o to track zero 
mov bx,otfset hom com 
Call execute 
JZ return ;home drive and return if O 
mov bx,offset bad hom ¿else print 
call pmsq ; "Home Frror" 
Imps home sand retry 

SETTRR: ¿set track address qiven by CX | 
mov trk,cl ¿we only use 3 bits of trac 
ret 

SETSEC: ;set sector number given by cx 
mov sect,cl ;we onlv use 8 bits of sect 
ret 

SECTRAN: ;translate sector CX using table at [DX] 
mov bx,cx 
add bx,dx ;add sector to tran table a 
mov b1, [bx] ;get Logical sector 
ret 

SETNMA: ¿set DMA offset given by CX 
mov dma adr,CX 
ret 

SETDMAB: ;set DMA segment given by CX 
mov dma seg,CX 
ret 

GETSEGT:  ;return address of ohysical memory table 


mov bx,offset seq table 
ret | 


2 e 9t e ke e e de e de de de de ce de de e de de oe de de e e de de sie e e e de de e de e KR de de de e e de de ex 


. X 


;* All disk I/O parameters are 
;* Read and Write entry points transfer one 
;* sector of 128 bytes to/from the current 

¿* DMA address using the current disk drive 


setup: the 


* + E 4 + 


; See de ie e e ce de e ARA AA de oie de de de oe de de e ie de e de e de de de tie e dece eo dee dee de de 


READ: 
mov al,izh 
imps r w common 


"basic read sector command 


WRITE: 


is Pronrietarv to Digital Research 


L23 


CP /M-86 Svstem Guide 


72652 


2654 
2657 


265A 


2663 
- 2667 


266A 
266E 
2671 
2674 
2676 
2678 
2678 
267D 
267F 
2681 


2683 
| 2685 
2687 


~ 2689 


268B 
268D 
268F 


2691 
2693 


2695 
2699 


800A 


BB6A28 
884701 


891E6328 


C60662280A 


8B1E6328 
E88900 


88186328 
8A4701 
890008 
3GC 
720B 
B98080 
240F 
3C0C 
B000 
7736 


E4A0 
24 9 
3261 
74F8 


E4Al 
2415 
7428 


3C 10 
7425 


FEDE6228 
75C8 


B400 
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mov al,0ah «basic write sector command 


r w common: 


. MOV 


execute: 


bx,offset io com ;ooint to command stri 
mov byte ptr 1L{BX],al ;vut command into str 
fall into execute and return 


execute command string. 
- [8X] points to length, 
: followed by Command byte, 
A followed bv length-l parameter byte 


mov last_com, 8X «save command address FOr T 


outer retry: 


sallow some retrving 
mov rtry cnt,max retries 


retrv: 
mov BX,last com 
call send com ;transmit command to i8271 
; check status poll 
mov BX,last com 
mov al,líbx] sqet command op code 
mov cx,0800h mask if it will be "int re 
cmp al,2ch 
ib exec Doll sok if it is an interrupt t 
mov cx,8080h «else we use "not command b 
and al,Oth 
emp al,0ch suntess there isn't 
mov al,0 
ja exec exit : anv result 
| M Doll for bits in CH, 
exec poll: : toggled with bits in CL 
in al,fdc stat  ;read status 
and al,ch l 
xor al,cl y isolate what we want to 
jz exec pol) sand loop until it is done 
"Operation complete, 
in al,fde_rslt ; see if result code indica 
and al,leh 
jz exec exit no error, then exit 
i «some type of error occurre 
emp al,10h 
je dr nrdy «was it a not ready drive ? 
~ ;no, 
- then we just retry read or write 


dr rdy: 


y 


dec rtry cnt 
jnz retry : up to 10 times 
retries do not recover from the 


hard error 


mov ah,0 — 
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269D | e mov bx,ax ;make error code 16 bits 
269F S8BOF9L27 . | mov bx,errtbt [3x] 
26A3 ES45tF. ^ call pmsg . SOC LRE aporopriate messade 
26A6 E4D8- in al,cdata ¿£lush usart receiver buffe 
26A8 ES2BFF .. call uconecho «read unper case console ch 
26AB 3C43 - - emp al C^ | 
26AD 7425 © ie wboot 1 ;cancel 
26AF 3C52 emp al,"R^ 
26Bl 74AB je outer retry ;retry 10 more times 
2683 3049 emp al,"I^ 
2685 741A ie Z ret ¿ignore error 
2687 OCFF or al,255 ¿set code for permanent err 
exec_exit: 
2699 C3 | ret 
dr_nrdy: ¡here to wait for drive ready | 
26BA EBLAO0 call test readv 
26BD 75A4 jnz retry :if it*s ready now we are d 
26BP E81500 call test ready 
26C2 759F inz retry ‘if not ready twice in row, 
26C4 B8B0228 mov bx,offset nrdymsq 
26C7 ES821FF call pmsg ;"Drive Not Ready" 
nrdvol: 
26CA ES80AO00 call test ready 
26CD 74FB iz nrdy0l ¿now loop until drive readv 
26CT EB92 jmps retrv ;then go retry without decr 
zret: 
26D1 2400 and al,0 
2603-03 ret ¿return with no error code 
wboot_1: ¡can"t make it w/ a short 1 
2604 E9B3FE imp WBNOT 
; fe e de He de e ce de de ce de cde de se oe e de cde de cde de AAA AA AAN 
s * * 
;* The ¡8271 requires a read status command * 
;* CO reset a drive-not-ready after the T 
;* drive becomes ready 9 
« k * 
————^—^———————————————— P 
test ready: 
26D7 B640 mov dh, 40h ¡brover mask i£ dr 1l 
26D9 F606692880 test sel mask,80h 
26DE 7502 jns nrdy2 
26£0 B604 mov dh, 04n «mask for dr 0 status bit 
nrdyZ: 
26E2 3B7128 mov bx,offset rds_com 
2685 ESOBOO call send_com 
dr_poll: 
2628 E4A0 in al,fdc stat  ;get status word 
26EA A880 test al,80h | 
26EC 75FA inz dr poll «wait for not command busy 
26EE E4Al in al,fde rsit  ;qet "special result” 
26F0 84C6 test al,dh :]ook at bit for this drive 
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~“26F2 C3 


26F3 
26F5 
26F7 


26F9 
26FC 
ZOTE 
2700 
2702 


2704 
2706 
2708 


270A 
270€ 
270E 
2710 
2715 
2714 
| 1716 
2719 
2718 
271D 
271F 
2725 
2724 
2726 


2728 
272A 
2123 
272D 
2724 


2133 
2145 
2737 


s 


E4A0 
A880 
T3FA 


8A4701 
3012 
7504 
B140 
EB06 


3C0A 
7320 
3180 


B004 
E6A8 
B000 
E6A5 
gAcl 
E6A5 
A16528 
E6A4 
BAC4 
E6A4 
A16728 
E6AA 
8AC4 
E6AA 


SA0F 

43 

8A07 
0A066928 
E6A0 


FECS 
7482 
43 


Guide 


rec 


Apvendix E RIOS Listing 


¿return status of ready 


a je le k je de de sie de de de de A de de de se fe de e de ie de de e de de de de de ode AAA ode e je se Y de de e e de + 
" 


.* 
t 


+ 


"- € 9 * dl 
+ + + © 


Send com sends a command and parameters 


to the 18271: 


The DMA 
if this 


* 
* 
BX addresses parameters. * 
controller is also initialized * 
is a read or write * 

* 

* 


« ke 3c de e e ce ie de de de de de e de de de de de ic e de de de e e de de de de de de ede de oe de oe de oe dede de sexe 


~ 


send com: 
in al,£dc stat 


"TNI 


test al,80h 


nz 


see if we have 


:insure command not busy 
send_com ¡loop until ready 


to initialize for a DMA ope | 


mov al,1[bx] get command bvte 

emp al,12h 

ine write maybe ;if not a read it couid be 

mov c1,40h 

jmos init_dma sis a read command, go set 
write maybe: 

cmp al,0ah 

ine dma exit «leave MMA alone if not rea 

mov cl,80h “we have write, not read 

dma: 


«we have a read or write operation, 


+ 
, 


(CL 
mov 
out 
mov 
out 
mov 
out 
mov 
out 
moy 
out 
mov 
out 
mov 
out 


dma_exit: 


mov 
inc 
mov 


or al,sel_mask 


out 


Parm loop: 


setup DMA contr 
contains proper direction bit) 


al,04n 

dmac_mode,al ¿enable ámac 

al ,00 

dmac_cont,al ¿send first byte to con 
al,ci 


dmac cont,al ; Load 


ax,dma_adr 


direction register 


dmac_adr,al «send low byte of DMA 
al,ah l 
dmac_adr,al ;send high byte 


ax,dma seg 
fdc_segment,al ;send 
al,ah 

fdc segment,al ;then 


low byte ot segmen 


high segment addre 


cl, [BX] ¿get count 
BX 
al, [BX] :get command 


merge command and drive co 


fdc com,al  ;send command bvte 


dec cl 
iz exec exit no (more) parameters, retu 
inc BX «point to (next) parameter 


Darm poll: 
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2738 E4AQ B . in al,fdc stat | | "m l i 
273K A820 - = =o oon test al,20h. . -;test "parameter-register F 
273C 75FA  —— . MZ parm poli ;idle until parm req not fu - 

273E 8A07 mov al, [8X] ] | 

2740 E6AL out fdc_parm,al ¡send next parameter 

2742 EBEF l) jmps parm_loop ;go see if there are more p 


7 ee ede de jede de de de de de e dede de de de de de de ie de de de de ie de de de de de dede dede dede de ie dede 


ET | * 
> Y Data Areas * 
p Xe e he de e e e de de e oe e de de je e ie de de de de de de de de je dede det de dede dede dede dee d d e 
2744 data offset equ offset $ 

dseg. | 

org data offset ;contiguous with co 

IT loader bios E 
H SON SD SP, LLL SS r r Gui it Op UND aib en CUM MED UND Vip AED. uis R GD MED. cp ET c "ERA e SUNR uriFh oe ee 
; | | 
signon db CELE ALE 

db ^CP/M-86 Version dal (C0, LEO 


:| 


H — H A i Sl DI ee ee oe ee — — PE. emm A SE UID UE aD. ta, GU cc do ep EU TU mp AUD XU di epi) AEN di em 


ENDIF ;loader bios 


IF not loader bios 
| MON | 
2744 0DOAODOA Signon db Gx, LE;Cr Le 
2748 202053797374 db . ^ System Generated - 11 Jan 81^,c 
656D2047656E 
657261746564 
20202D203131 
204A616E2038 
310D0A00 
>| 
ENDIF ¿not loader bios 
276A 0D0A486P6D65 bad hom db cr,lf,"Home Error”,cr,1f,0 
204572726F72 
0D0AO00 
2779 0D0A496E7465 Int trp db cr, lf, Interrupt Trap Halt^,cr,1$,0 
727275707420 
347261702048 
616C740D0A00 
2791 B127B127B127 errtbl dw er0,erl,er2,er3 
B127 
2199 EL270127D0E5E27 dw er4,er5,er6,er7 
EF27 
27Al 022816282828 dw er8,er9,erA,erB 
3028 
27A9 4D28B1278127 dw erC,erD,erRE,erF 
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de 
bé B127 
27B1 OD0A4=5756C6C er U db er,1f,°Null Error ??",0 
204572726F72 | 
203F3F00 
2781 eril equ er U 
2781 era equ er0 
2781 er3 equ er U 
27Cl 0D0A436C6F63 er4 Gb e<r,d1t, Clock Error :^*,0 
6B204572726F | 
72203A00 
27D1 0N0A4C617465 er5 db cr,lf, Late DMA :^,0 
20444N41203A 
00 
27DE 0D0A49442043 er6 db -cr,lf, ID CRO Error =" ;0 
524320457272 
5F72203A00 
77EF 0D0A44617461 er7 db. er;lf; Data CRO Error i y0 
204352432045 . 
72726F72203A 
00 
2802 0D0A44726976 er8 db cr,lf£,^nrive Not Ready :^,0 
65204E68F7420 | 
526561547920 
3A00 
2816 000457726974 er9 db cr,lf,"Write Protect :^,0 
652050726F74 
656374203400 
2828 QDOAS4726B20 erA Ab cr,lf,^"rk 00 Not Found :",0 
3030204E6F74 
20466F756E64 
203400 
283D 0D0AS7726974 era db erpii; Write Fault + 0 
65204661756C 
74203A00 
284D 0D0A53656374 erc db cr,lf,°Sector Not Found :^,0 
aM 6F72204E6F74 
= 20466F756E64 
203A00 
2781 erD equ er Ù - 
2781 erE equ er U 
2781 erF equ er U 
2802 mrdymsg equ er8 
2862 00 rtry_ cnt db 0 ¿disk error retry counter 
2863 0000 last_com dw 0 ¡address of last command string 
2865 0000 dma_adr dw 0 sdma offset stored here 
2867 0000 dma_seg dw 0 :dma segment stored here 
2869 40 sel mask db 40h ¡select mask, 40h or 80h 
r Various command strings for 18271 
286A 03 io_ com db 3 ; length 
286B 00 pd WE db 0 «read/write function code 
/7386C 00 trk Ab 0 strack # 
E 
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286D 


286€ 
2871 


2873 
2874 
2876 
2878 
287A 


2287C 
22880 
22884 
22888 


00 


022900 


ULC 


02 

DF02 
2105 
0020 
0020 


= 289C 


287C 


AB280000 
00000000 
25285025 
64294529 
AB280000 
00000000 
C5289C28 
93297429 


1400 
03 
07 
00 


F200 
3F00 
CU 
00 
1000 
0200 


=  28AB 

=28AB 01070D13 
=28AF 19050Bll 
=2383 1703090F 
228B7 1502080 
=28BB 1L41A060C 
=28BF 1218040A 
x2805 1016 
001? 

0010 


289€ 
QU LE 
0010 
23AB 


ü 4 HP H H H H U H h ou 


2865 


Guide 


sect 


hom com db 2,29h,0 
rds com db 1,2ch 


* 
, 


segtable db 2 


Li 
dobase 


doped 


dpel 


áDbO 


KLEO 


also 
csso 


dpbl 
alsl 
cssl 
AL EL 


9 
U 


oegdat 


ab 


Aovendix E 


0 «sector #4 


niOS Listing: 


shome drive command. 
;read status command 


Svstem Memory Seqment Table 


dw 
dw 
dw 
dw 


edu 
aw 
dw 


;à segments 


tpa seg slst seg starts after RTOS 

tpa_len ¡and extends to 08000 

2000 ¿second is 20000 - 

2000h ;JFFF" (128k) 

include singles.lib ;read in disk definitio 

DTSKS 2 
S ¿Base of Disk Param 
xlt0, 9000h ¿Translate Table 
0000h, 2000h ¿Scratch Area 
dirbuf ,dobo0 ¿Dir Buff, Parm Blo 


dw 
dw 
dw 
dw 
dw 
dw 


equ 
dw 
db 
db 
db 
aw 
dw 
db 
db 
dw 
dw 
equ 
db 
db 
Ab 
db. 
db 
as 
db 
equ 
equ 


equ 
equ 
equ 
equ 


csv0,alvo0 
*£*tel., 0000 
0000h,0000h 


«Check, Alloc Vecto 
«Translate Table 
¿Scratch Area 
difbuf,dobl :Dir Ruff, Parm Blo 
csvi,alvl :Check, Alloc Vecto 
DISKDEF 0,1,26,6,1024,243,64,64,2 


offset 5 ;Disk Parameter RIO 
26 Sectors Per Track 
3 ¿Block Shift 

T -Block Mask 

0 ¿*“xtent Mask 

242 "Disk Size - 1 

63 ¡Directory Max 

192 sAl Toco 

0 ;Allocil 

16 «Check Size 

2 Offset 

offset S "Translate Table 
LTS 

ag 9e aL 

235349515 

21$:2;9?L4 


20,26,6,12 
18,24,4,10 


16,22 

31 «Allocation Vector 
16 «Check Vector Size 
DISKDEF 1,0 

dobo ;Equivalent Paramet 
also ¿Same Allocation Ve 
cssQ :Same Checksum Vect 
«Leg «Same Translate Tab 
ENDEF 


Uninitialized Scratch Memorv Follows: 


equ 


offset S Start of Scratch A 
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on 
=28C5 
=2945 
=2964 
=2974 
=2993 
29A3 
OODE 


29A3 00 


"nou H 


29A4 
29EÀ 


29E4 
02D? 


0521 
29E4 00 


0000 


0000 
0002 


0004 


0380 
0382 


All 


dirbuf rs 128 Directory Buffer 

alvo rs also Alloc Vector 

esv0 rs cssÚ «Check Vector 

alvl rs alsl :Alloc Vector 

esvl rs essl «Check Vector 

enddat edu offset S «End of Scratch Are 

datsiz equ offset S-begdat :Size of Scratch Ar 
db 0 «Marks End ot Modul 


loc stk rw 32 ¡local stack for initialization 
stkbase equ offset S © 

Lastotf eau offset S 

tpa seg equ (lastoff+0400n+15) / 16 

tpa len equ 0800h - t»a seg 


db 0 fill last address for GENCMD 
y Ce e ce de RARA de e dee dee e de ec eee RR ede de de de e de RRA REE ED 
s X * 
An Dummy Data Section * 
s * * 
o desee dee de de e dee e e ede e ee diede de de de dede de de e dee dede dee dece ded 
dseg 0 «absolute low memory 
ora 0 :(interrupt vectors) 
int0_ offset rw 1 
intQ segment Tw l 
- pad to svstem call vector 
rw 2* (bdos int-l) 
bdes offset rw L 
odos segment rw i 
END 
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3€ se Se de de dede cie cde eode se de de de de dee e e sit de dt eode de de cie e de oe die de de de de de de ode det ie e de de e de de eode ok 


* + 
* This is the listing of the skeletal CRIOS which * 
* you can use as the basis for a customized BIOS * 
* for non-standard hardware. The essential por- * 
* tions of the BIOS remain, with "rs" statements * 
* marking the routines to be inserted. * 
* * 
+ * 


3 e e de de de dese ose e de ose je de de ode ose de de oe de ose e dede de e de se je de de oe je ie oe de de ode de de je de de dede dee oe 


s Ck oe e e ee e e e e de e e e e e de e de e e de e e de de oe e de de de de e de e e e ee e ee x 
pt * 
;* This Customized BIOS adapts CP/M-86 to * 
;* the following hardware configuration x 
"us Processor: * 
P Brand: ^ 
ios Controller: w 
. * * 
x * 
U 
E Programmer : T 
"d Revisions : = 
.* * 
II II IOI RA II OR IR ie i 

FFFF true equ -1 

0000 false equ not true 

000D or equ Odh ;carriage return 

000A Lt equ Dab ;line feed 
e de de de Se de de de de de ce de de de ARA dc oe sie oe ode e de de e cde e e de de oe sie e ie ode de ce e cde t o&€ 
P 
;* Loader bios is true if assembling the w 
X LOADER BIOS, otherwise BIOS is for the * 
;* CPM.SYS fila. = 
_* * 
RR CROP III I ROO RE IER RO RO OR EE E 

0000 loader bios equ false 

00580 bdos int equ 224 ;reserved BDOS interrupt 

IF not loader_bios 

| | 

2500 Dios code equ 2500h 

0000 ccp offset equ 0000h 

0B06 bdos ofst equ OBO6h ;BDOS entry point 
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2500 
2303 
2506 
2509 
250C 
250F 
2912 
2515 
2518 
2513 
2231E 
2322 
2524 
2521 
252A 
2920 
2530 
2333 
2536 
2339 
2936 


253F 


E93CO00 
£97900 
E98500 
E98D00 
E99A00 
E9A200 
E98500 
E98D00 
E9F600 
E9D900 
£90101 
E90301 
E90C01 
E9S17041 
E94701 
E9BPOO 
E9F900 
E90201 
ES0401 
E9A400 
E9A500 


8CC8 
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ENDIF ;not loader bios 

IF -- - Yoader bios 
:| | | 
Dios code equ 1200h ¡start of LOBIOS 
ccp offset equ 0003h ¿Dase of CPMLOADER 
bdos ofst equ 0406h ;striooed BDOS d 

ENDIF ;loader bios 

cseq 

org ccooffset 
aco: 

org bios_code 


eR ee fe e e ke ce e de she e ole de de le de e e e de de de de je e oe e dede de de de de de dece de de oe je jede 


s È 
, 


* 


;* BIOS Jump Vector for Individual Routines X 


.* 
L 


* 


e t e de de Se e De e de oe de de de de de e e le de de de de de de de de dede de de de de de de de de jede dece e e n 6 


imo 
jmp 
3mp 
jmp 
imp 
jmp 
jmp 
jmp 
imp 
jmp 
jmp 
jmp 
jmp 
jmp 
imo 
imp 
imp 
1mb 
jmp 
imp 
jme 


INIT ¿Enter from BOOT ROM or LOADER 
WBOOT |». sArrive here from BDOS call 0 
CONST ¿return console keyboard status 
CONIN ¡return console keyboard char 
CONOUT ¡write char to console device 
LISTOUT ¿write character to list device 
PUNCH ¿write character to punch device 
READER ¿return char from reader device 
HOME «move to trk 00 on cur sel drive 
SELDSK ;select disk for next rd/write 
SETTRK ¿set track for next rd/write 
SETSEC ¿set sector for next rd/write 
SETDMA ¿set otfset for user buff (DMA) 
READ ;read a 128 byte sector 

WRITE ¡write a 128 bvte sector 

LISTST ;return list status 

SECTRAN ;Xlate logical->ohysical sector 
SETDMAB ¿set seq base for buff (MMA) 
GETSEGT «return offset of Mem Desc Table 
GFTTIOBF ¡return I/O map byte (IOBYTE) 
SETIOBF ¿set T/O map byte (TOBYTE) 


» f de ce oie se de de de de de de eode de de de oe de de oe ode de oe e de de de de de de de oe e ie de e de de de dede ie det x 


f 
» * 
f 
i 


* 


e 
U 
» 
U 
* 
U 


INIT: 


;print signon message and 


mov ax,cs 


* 


;* INIT Entry Point, Differs for LDBIOS and * 
* BIOS, according to "Loader Bios" value à 


* 


LA ve e de de ie cde de de de e oe de ie de de de oe oe it de e e ode de de ode de de e ie de de ode de dede de de ode de dee x 


initialize nardwa 
«we entered with a JMPF so 


All Information Presented Here is Proprietary to Digital Research 


138 


c) 


CP/M-86 System Guide 


2541 
2543 
2545 


2547 
254A 


2545 
254C 
2294. 
2554 


2556 


2258 
2355 
2562 
2363 
2568 
256B 


256D 
2973 


8EDO 
8ED8 
BEC U 


BC 5929 
¡ye 


bo — own, ee — ee mk 


LE 
C606A72600 
BB0000 
8F.D8 

SECO 


C70600008225 
8C0E0200 
BF0400 
BEOO00 
BSFEOL 

FJAS 


C70680030608 
LF 


=< 


O see eo ee ow um 


BBB126 
EB86F00 
B100 

E981DA 
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mov SS,ax :CS: as the initial value o 
mov ds,ax TB > 
"mov es,ax «and ES: 


¿use local stack during initialization 
mov sv,ofiset stkhase 
eg ¿set forward direction 


not loader bios 


; This is a BIOS for the CPM.SYS file. 
; Setup all interrupt vectors in low 
; memory to address trap 


push ds 'Save the DS register 
mov IOBYTE,O ¿Clear IOBYTE 
mov ax,0 


mov ds,ax 

mov es,ax ¿set ES and DS to zero 
¡Setup interrupt 0 to andress trao routine 
mov int0_oftfset,offset int trap 


mov intQ segment,CS 

mov di,4 

mov si,0 ¿then propagate 

mov cx,510 ¿trab vector to 

rep movs. ax,ax ¡all 256 interrupts 


;BDOS offset to prover interrupt 
mov bdos_offset,bdos_ofst 
pop ds ¡restore the DS register 


(additional CP/M-86 initialization) 


— oe — — ee -——Á ee ee O O uA— A ees dde dk. und f, ee dek ee um A O. es ceno ee ee nume B es es a ee ee P FU oe a 


snot loader bios 


loader bios 


—— —À P A AX GM Aun APA cuba nip TA RUP Und umb Cam cd a ee ees ee ee ee ee CUNG ee NND "ume mn CA cR) cnius amis Cd Pp A A mi 


;This is a BIOS £or the LOADER 
push ds ¿save data segment 
mov ax,0 


mov ds,ax ¿point to seqment zero 

; BDOS interrupt offset 

mov bdos_ offset,bdos ofst 

mov bdos segment,CS ;bdos interrupt segment 
(additional LOADER initialization) 

pop ds ¿restore data segment 


ENDIF ;loader bios 

mov bx,offset signon 

call pmsg sprint signon message 

mov cl,0 «default to dr A: on coldst 
jmp cep stump to cold start entry o 
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-257F:E984DA - . WBOOT:  jmp ccp+6 ¡direct entry to CCP at com -` 
sp not loader bios ~ x: rcc 

int trap: | EST 

2582 FA eli C ¿block interrupts - 

2583 8CC8 mov ax,cs 

2585 8ED8 mov ds,ax ¿get our data segment 

2587 BBD126 mov bx,offset int trn 

258A E85C00 call pmsg 

258D F4 hlt ;hardstop 


* 2 ana es ee PO "UNS crum RED SEND l UEM ee eee ee cun) mh ds mue cun mh mn umm. ami sum b miis ee ee PR 


ENDIF ¿not loader bios 


y XR fe e de e e de e de e e de e e e ke e he de de de de eie e inde de sie e e de de eie de dee je ke de dee oe 


. $ * 
l) ;* CP/M Character I/O Interface Routines  * \ 
«+ * e 
e e e e de e de e ee de de e de de e de de de se e de de de e de e de deje e he e e de dede de jede ie de dee ce € 
CONST: «console status 
258€ rs 10 > (fill-in) 
2598 C3 ret 
| CONTIN: ;console input 
2599 ESF2FFT call CONST 
259C 74FB Jz CONIN ¡wait for RDA 
259€ rs 10 e (Fill-in) 
2548 C3 ret 
i CONOUT: ;console output 
25A9 rs 10 (fill-in) 
29843 CJ ret *then return data 
LISTOUT: :list device output 
2584 rS 10 ;(£ill-in) 
25BE C3 ret | 
LISTST: ¿poll list status 
25BF rs 10 ; (Sill-in) 
2509 C3 ret 
PUNCH: «write punch device 
25CA rs 10 : (fill-in) 
25D4 C3 ret 
READER: 
25D5 rs LO (fill-in) 
25DP C3 ret 
GETIOBF: 
25E0 A0A726 mov al,IOBYTE 
=, 
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C3 


880EA726 


C3 


8A07 
84C0 
7421 
8AC8 


ESBSFF 


43 


ESr2 


0002 


29r 4 
ZO 
23rE 
2601 
2603 
2605 
2607 
2609 
2608 
260E 
2610 


2611 


- 2617 


C) 


2621 


2022 
2626 


2627 
262B 


262C 
262E 
2630 
2032 


880EA8 26 
BB0000 
80F902 


730D 
B300 
8BD9 
B104 
D383 


B9F126 


03D9 
C3 


C706A9260000 


ES 


890EA926 


(3 


890EAB26 


ee 


8BD9 
O3DA 
SALF 
ES 


CBIOS Listina 


ret 


SETIOBF: 


mov IOBYTE.Cl :Set iobyte 
ret ;iobvte not implemented 


pmsa: 

mov al,[3BX]) 
test al,al 
iz return 
mov CL,AL 
call CONOUT 
inc BX 

jmpPs pmsq 


;get next char from message 
if zero return 
SOE Lit: E 


¿next character and looo 


y Kod dece de de e de che de e e je je e de e e e de de ee e e e e ce dece de de dee de de KKK KK de deck 


.* . * 
PT Disk Input/Output Routines * 
- * * 


, 
RARE e e RARA se dece deje de e de de dece e de de e de ee de e de de de dee de de de de dece 


SELDSK: ¡Select disk given bv reqister CL 
ndisks equ 2 ;number of disks (up to 16) 
mov disk,cl ¡save disk number 
mov bx,0000h ;ready for error return 
cmp cl,ndisks ;n beyond max disks? 
inb return sreturn if so 


mov ch,0 «ñoublel(n) 

mov bx,cx ebx = n 

mov cl,4 ¡ready for *16 
sni DX,cl sn = n * 16 


mov cx,offset dpbase 

add bx,cx :dobase +n * 16 
return: ret ¿Dx = .ndph 
HOME: ¿move selected disk to home position (Track 
mov trk,0 «set disk i/o to track zero 
rs 10 *(fillein) 
ret 


SETTRK: ;set track address given by CX 
mov trk,CX 
ret | 


SETSEC: ;set sector number given by cx 
mov sect,C% 
ret 


SECTRAN: ¿translate sector CX using table at [DX] 
mov bx,cx 


add bx,dx :add sector to tran table a 
mov bl, [bx] ¿get logical sector 
ret 


SETDMA: ¿set DMA offset given by CX 
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2633 
2631 
2638 
263C 


263D 
2640 


2641 
2673 


2674 
29A6 


890EAD26 


c3 


890EAF26 


ES 


BBE826 


C3 


G3 


26A7 


26A7 
26A8 
26A9 
26AB 
26AD 
26AP 
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00 


0000 
0000 
0000 
0000 


mov dma adr,CX 
ret 


SETDMAB:. ¿set DMA segment given bv CX 
mov dma seg,CX 
ret 


GETSEGT: 
mov bx,offset seg_table 
ret 


oo e de de dede dede ede eee e dede ode de de dee dede deed e de e dee dee e 


« Y * 
;* All disk I/O parameters are setup: » 
.* DISK is disk number (SELDSK) * 
TRK is track number (SETTRK) * 
SECT is sector number (SETSEC) * 
DMA ADR is the DMA offset (SETDMA) * 
DMA SEG is the DMA seqment  (SETDMAB)* 


READ reads the selected sector to the DMA* 
address, and WRITE writes the data from * 
- the DMA address to the selected sector * 


(return 00 if successful, OL if perm err)* 
* 


4e se e de je de de dede de de de de de de je ot de de ot de cie e de e de e oie de cde ce oe oe ce oie oe de de ie dee e e xf 


~e “2 "e. "4 "o "a "0 BH NE “a 0 
+e Xx 0X E 9 


READ: 

rs 50 sfill-in 

ret 
WRITE: 

cs 50 : (£ill-in) 

ret 
y e se t ie de e ce e e e de de de e cde de de e de ie de e dece de de ede de e de e dece dece koe dece ec € 
. l * 
Ex Data Areas N 
s Ñ * 
s E e se de ce se ke e dede de dece de dee de t e de de de ae ede de e de dece e e e e ok oe RARAS 
data otfset equ offset $ 

dseq 

org data offset :contiguous with co 
IOBYTE db 0 
disk db 0 «disk number 
trk dw 0 «track number 
sect dw Q ;sector number 
dma adr dw 0 ¡DMA offset from DS 
dma_seg dw Q *DMA Base Segment 

LE loader bios 


Cs LE OLA LE 
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“cp /M-86 Version 1.0°%,cr,1£,0 


;loader bios 


IT not loader bios 


2681 0DOAODOA signon db er, lt, erst 
2685 53797374656D db “System Generated 00/00/00” 
204765656572 | 
617465642030 
302F30302F30 
30 
26CE 0DOADO | db Crete 70 | 
z | 1 
ENDIF ¿not loader bios 
-26D1 ODOA " int trp db GE c LE 
26D3 496574657272 db “Interrupt "rao Halt’ 
757074205472 
61702048616C 
74 
2626 ONOA db ` Sr, Lt 
: Svstem Memory Segment Table 
26E8 02 segtable db 2 ¿2 segments 
26E9 C602 dw tpa seg ;lst seg starts after BIOS 
26EB 3A05 ñw tpa len sand extends to 08000 
268€D 0020 dw 2000h «second is 20000 - 
26EF 0020 dw 2000h :3FFFF (128k) 
include singles.lib ;read in disk definitio 
° DISKS 2 
26F1 dpbase equ S «Base of Disk Param 
:26F1 20270000 äpe 0 dw x1t0,0000h «Translate Table 
26F5 00000000 dw 0000n,0000h ;Scratch Area 
26F9 3A271127 dw dirbuf,dpbO : «Dir Buff, Parm Blo 
26FD D927BA27 dw csv0,alv0 .:Check, Alloc Vecto 
2701 20270000 dpel dw x1t1,0000h «Translate Table 
2705 00000000 dw 0000h,0000h «Scratch Area 
2709 3A271127 dw dirbuf,dobl ¿Dir Buff, Parm BLO 
2700 0828E927 dw csvl,alvl Check, Alloc Vecto 
; DISKDEF 0,1,26,6,1024,243,64,64,2 
2 LE dpbo equ offset S$ "Disk Parameter Blo 
2711 1A00 dw 26 «Sectors Per Track 
2113 04 db 3 ¿Block Shift 
22714 07 db 7 «Block Mask 
715 00 db 0 -Extnt Mask 
2716 F200 dw 242 «Disk Size - l 
2718 3F00 (fiw 63 «Directory Max 
271A CO db 192 ;AllocO 
:Allocl 


2718 00 db 0 
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z27lC 1000 
=271E 0200 


e 


= 


= 


2120 
2724 
2728 


21 20. a 


01070D13 
19050811 
1703090F 
1502080E 
141A060C 
1218040A 
1016 


o diu 


001F 
0010 


ESP 
00 LS 
0010 
2120 


2859 
02C6 
053A 


also 
cssQ 


dobl 
alsl 
essl 
XLEL 


* 
t 


begdat 
dir5uf 
alvO 
csvQ 
alvl 
csvl 
enddat 
datsiz 


loc_stk 
stkbase 


lascort 
tpa seg 
tpa len 


2859 00 


0000 


0000 
0002 


0004 


0380 
0382 


dw. 
dw 


equ. - 


db 
db 
db 
db 
db 
db 
db 
equ 
equ 


ecu 
equ 
equ 
equ 


Appendix F CAIOS Listing 


16 ¿Check Size 

2 Offset 

offset $- |. Translate Table 
Lt ploy ko 

2929: LL 

2339715 

2L.,2,8;14 

20,26,6,12 

18,24,4,10 

LCB c | 

31 | ;Allocation Vector 
16 ¿Check Vector Size 
NTSKDEF 1,0 

dob0 ¿Fquivalent Paramet 
also ¿Same Allocation Ve 
cesso ¿Same Checksum Vect 
XLlto ¿Same Translate Tab 
ENDEF i 


Ininitialized Scratch Memory Follows: 


equ 
rs 
rs 
rs 
rs 
rs 
equ 
equ 
db 


CW 
equ 


equ 


offset $ ‘Start of Scratch A 
128 ;Directorv Buffer 
alsQ ;Alloc Vector 
cssQ ¿Check Vector 
alsl sAlloc Vector 
essl ¿Check Vector 
offset S «End of Scratch Are 
offset S-begdat ;Size of Scratch Ar 
0 ¿Marks End of Modul 
32 ¿local stack for initialization 
offset S 
offset S 


equ (lastoff+0400h+15) / 16 
0800h - tpa seg 


equ 
db 0 


‚fill last address for GENCMN 


e e de se de ce de se e ve je de de de de oe de de ole de de die de de de Sie de de de de de de de de oie de de oe cie de sie de de deo 


* 
* 
* 


U 


t 
+ 
2 
t 
. 
H 
4 


dseg 
org 


intO_ offset 


intQ segment 


e 
f 


* 


Dummy Data Section ui 


* 


« c ede 3e cde XX RK e He de fee ode de RANA oe de oe de de dede € 


0 ;absolute low memory 
0 ; (interrupt vectors) 
rw l, 
cw L 


pad to system call vector 


CW 


odos offset 


Odos_ segment 


END 


2*(bdos_int-1) 
cw L 
Cw ue 
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A 


allocate absolute memorv, 32 
allocate memorv, 52 


B 


Dase page, l 
SIOS, 121 
bootstrao, 4 
bootstrap ROM, 81 


C 


0St:0OS. 567-137 
close file, 34 
CHD: Ly LS 
cole start loader, 1, 56, 81 
compact memory model, 11, 21 
compute file size, 45 
CONIN, 61 
CONDUTA 61 
console inout, 25 
console output, 25 
console status, 30 
CONST, 60 
converting 8080 programs 
to CP/M-86, 3, 17, 23 
cross develooment tools, 2 


D 


data block, 72, 74 

delete file, 36 

direct BIOS call, 47 

direct console I/O, 27 

directory entries, 71 

disk definition tables, 4, 67 

disk parameter block, 69 

disk parameter header, 62, 
67, 75 

DMA buffer, 14, 39, 60, 63 


E 


faz call, 11, 14 

file control block, 30 
file structure, L 

free all memory, 53 


pt 
I 
Ju 


TV, 
Get or set user code, 41 
ctor, 


G 


GENCMD, 2, 3, I5, 17 

GENDEF, 2 

get address of disk parameter 
block, 41 

get allocation vectoc 
address, 39 

get DMA base, 48 

get I/O bvte, 27 

get maximum memo 


get read/oniy ve 
GETIOB, 65 
GETSEGB, 65 
Grouo,.2 


H 


header record, 20 


HOME, Ri 


^-— f 


i 


INIT , 4, 60 | 
intel. gutilities$, 17 
IOBYTE, 58 


L 


L-module format, 19 

LDCOPV, 2 ` 

LIST, 6l 

list output, 29 

LISTST, 63 * +? 

LMCMN, 19 

logical to ohysical sector 
translation, 64 | 


M 


make file, 37 

memory, 14 

memory region table, 65 
memory regions, 1l 


O 


offset, 2 
open file, 33 


index 
P 


print string, 28 

: program load, .53 = 
PUNCH, 61 

ounch outout, 26 


R 


random access, 95 

READ, 53 

read buffer, 29 

read random, 42 

read sequential, 36 

READER, 61 

raader inout, 26 

release all memorv, 53 

release memorv, 52 

rename, 38 

reserved software interruot, 
lue 23 

reset disk, 33 

reset drive, 46 

return current disk, 38 

return login vector, 38 

return version number, 30 


S 


search for ficst, 35 

search for next, 35 

sector blocking and 
deblocking, 37 

SECTRAN, 64 

seqment, 2 

segment group memorv 
requirements, 17 

Segment register change, li 

segment register 
initialization, 8 

SELDSK, 62 

select disk, 33 

set DMA address, 39 

set DMA base, 48 

set file attributes, 4l 

Set I/O byte, 28 

set random record, 46 

SETDMA, 63 

SETDMAB, 64 

SETIOB, 65 

SETSEC, 62 

SETTRK, 52 

small memory model, 10, 21 

system reset, 4, 7, l4, 25 
49, 60, 74 


Tant 
4» 
or 


T 

translation vectors, 49 

U | | TS 
utility orogram operation, 2 
" | 


WBOOT, 60 


Ka L cp E E 


write protect disk, 39 

write random, 44 

write candom with zero 
PALES. 47 


2080 memory model, 3, 10. 
14, 21 
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Introduction 


This manual describes version one of CBASIC/86, 
a comprehensive, commercially oriented 
compiler/interpreter designed for use with tne CP/M-86” 
operating system.  CP/M-86 is a trademark of Digital 
Research.  CP/M-86 is available on a multitude of 8086 
microcomputer systems. 


CBAS1C/86 has a variety of extended features 
including the IF...THEN...ELSE and WHILE constructs and 
access to disk files. CBASIC/86 also allows the use of 
3l-character variable names, and the free use of 
comments, spaces, and tabs. These aid in creating 
programs that are self-documenting and maintainable. 


The CBASIC/86 system consists of three programs. 
The iist program, the compiler, converts the user's 
source language program into a series of coded 
operations that are placed on an intermediate disk 
file. The second progran, the runtime monitor, 
directly executes the operations included in the 
intermediate file. The final program,  XREFB6.CMD, will 

roduce a cross reference listing of all variables used 
in a CBASIC/86 source program. 


To use CBASIC/86 a microcomputer system using tne 
CP/M-86 operating system must be available. This manual 
assumes a working knowledge of the following CP/M-86 
documentation: 


1) THE CP/M-86 PROGRAMMER'S GUIDE 
2) THE CP/M-86 SYSTEM GUIDE 
3) THE CP/M-86 USER'S GUIDE 


These manuals are available from Digital Research, 
P.O. Box 579, Pacific Grove, California, 93950. 


A newcomer to the field of computers would do well to 
read an introductory text on the Basic Language. 


The reference sections, Chapter 2 through LO, 


describe the facilities of the language. Chapter 11 
expands on the use of files. Chapters 12 and i3 describe 
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the operation of the compiler. Five appendices follow 
which List compiler and runtime error messages, key 
words, a Decimal-Ascii-Hex table, and a master index. 


For CBASIC/86 Programmers 


A program that compiled and executed with  CBASIC 
should operate properly with CBASIC/86. An INT file 
created by the CBASIC compiler will execute with the 
CBASIC/86 runtime monitor. 


If statements do not appear to operate properly, 
Compiler Systems, Inc. would appreciate a note which 
includes the statement or statements which are 
causing the problem along with a description of the 
problem. 


Program Identification Numbers 


All Compiler Systems, Inc. programs sign-on with the 
program name followed by an identification number. These 
numbers are in the following form: 


V.CR 


The "V" is the version number. This manual describes 
version L programs. The "C" is the configuration. A zero 
means that the program is configured to operate with 
standard CP/M-86. Other configurations may be made 
available in the future. The "R" is the release number of 
the program. As errors are corrected in a particuiar 
version, new releases are made available. 
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GENERAL INFORMATION 
Statements 
A program consists of zero or more properly formed 


CBASIC/86 statements contained in a diskette file. 
CBASIC/86 source statements are also called source code 


or source statements. An END statement, if present, 
terminates the program, and any statements following the 
END: statement are ignored. An  end-of-file on the 


source file also terminates the program. In this case the 
END statement is supplied by CBASIC/86. 


In this manual the term line, in the context of a 
line of source code, means a string of characters 
terminated with a carriage return and  linefeed. A 
statement may span more than one line or multiple 
statements may appear on the same line. 


The entire ASCII character set is accepted, but most 
statements may be written using the common 64 character 
subset. Lower case letters are converted by the compiler 
to upper case except when they appear in strings or 
remarks. A compiler toggle, described in Chapter 13, Will 
inhibit all conversion to upper case. 


CBASIC/86 statements are free-form with the 
following requirements: 


(1) When a statement is not completed on a single 
line, a continuation character (\) must be used. 
(Note that with configuration 1 an at sign (@) may 
also be used as the continuation character). The 
statement can then be continued on the next line. 
CBASIC/86 keywords, variable names and string 
constants may not be broken in the middie and 
continued on the next line. A continuation 
character may not be used in a Data Statement 
since it is treated as a character within a 
string constant. Likewise backslash characters 
within string constants inclosed in quotation 
marks (see section 3.1) are not treated as 
continuation characters. 


(2) All characters which follow the continuation 
character on the same line are ignored by the 


compiler. 


CBASIC/86 Version L CLE NC General Information 


aa 


(3) Multiple statements are allowed on one line but 
they must be separated by a colon (:). DATA, DEF, 
DIM, and END must be the only statement on a line; an 
IF statement must be the first statement on a line. 
See the REM statement (section 2.4) for an exception 
to this rule. - 


Spaces may precede statements; any number of spaces 
may appear wherever one space is permitted. Extra spaces, 
such as for indenting statements to enhance readability, 
do not increase the size of the intermediate file created 
by the compiler. 


Notation 


ALL of the CBASIC/86 statements are described in 
«his manual. Pach description includes 4 synopsis 
which presents the general form of the statement. The 
following notation is used for the synopsis: 


Keywords and Symbols 
All special characters and capitalized words 
represent symbols which have special meaning in the 
language. For instance READ, REM and PRINT ars 
keywords in CBASIC/86. Appendix C contains à list 
of all keywords used by CBASIC/86. 


Angle Brackets < > 
Angle brackets enclose an item which is defined in 


greater detail in the text. 


Brackets L J 
Brackets denote an optional feature. 


Braces Í ] 
Braces indicate that the enclosed section may De 


repeated zero or more times. 


Statement Numbers 

Statement numbers are optional. They are ignored 
except when they appear in a GOTO, GOSUB, ON, OF Le 
statement. In these cases, the statement number must 
appear as the Label of one and only one statement in Ene 
program. Statement numbers do not have to De LA 
sequential order. For example: 


o 
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40 INPUT ITEM 
PRINT ITEM 
30 GOTO 40 


In this program the line number 3@ is not required; 
it is ignored during compilation. However, the 40 appears 
in a GOTO statement and thus must be used as a statement 
number once and only once in the program. Statement 
numbers may contain any number of digits but only the 
first 31 are considered significant DY the compiler. 


An additional feature of CBASIC/86 statement numbering 
is that any valid number may be useá as a statement 
number. This allows the use of non-integer statement 
numbers. + is possible to write an entire program or 
subprogram with statement numbers that are all 
decimal fractions and range between two consecutive 
integers. 


ratement numbers can even be in exponential (E) 
format. This is a convenient feature when writing 
procedures that will be included in other programs because 
iz helps to insure that statement numbers will be unique. 


The following are examples of valid CBASIC/86 
statement numbers: 


1 

g 

1909 
199.0 
130.213 
190E£21 


The statement numbers 189 and 190.9 are treated as 
different statement numbers by ‘the compiler. In other 
words it is the string of characters which determines the 
statement number and not the numeric value. 


REM Statement 
[«stmt number»] REM [«string terminated with CR»] 
f < stant number>] REMARK [«string terminated with CR»] 


A REM statement is ignored by the compiler, and 
compilation continues with the statement following tne 
next carriage return. A continuation character causes che 
next Line to be part of the remark. The REM statement may 
be used to document a program. REM statements do not 
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affect the size of the program that may be compiled or 
executed. An unlabeled REM statement may follow any 
statement on the same line. The statement number of a 
remark may be used in a GOTO, GOSUB, IF, or ON statement. 


Examples of REM statements follow: 


REM THIS IS A REMARK 

remark This is also a remark 

tax = @.15 * income rem lowest tax rate REM \ 
this section contains the \ 
tax tables for California 


The final example shows a REM statement on the same line 
with another statement. When using the REM statement in 
this manner, a colon is optional between the two 


statements. In all other cases involving multiple 
statements on the same Line, the colon must separate the 
statements. In addition, i$ the REM statement is used on 


Kha same line with other statements, it must be the last 
statement on the line. 


2.5 Executing a CBASIC/86 Program 
Execution of a CBASIC/86 program consists of 
three steps. First the source program must be created on 


— . 





disk.-Next-the- program is --compiled -by executing --the 
CBASIC/86 compiler with the name of the source program 
provided as a file name. Finally the intermediate (INT) 
file created by the compiler is executed by invoking the 
runtime program, again using the source program name as a 
file name. 


The source program will normally be created using a 
text editor. The source program must have a file type of 
BAS. Each line of a source program is terminated by a 
Carriage return and line feed. The line may be any 
length, however, the compiler listing will only print the 
first 132 characters of each line. 


When typing source programs, identifiers (variable 
names, reserved words, and user-defined function names) 
may not be abbreviated and must be separated by a 
character other than a number or letter. In general, 
spaces will be used to delimit identifiers. All letters 
in identifiers are converted to uppercase unless the 
conversion is inhibited by compiler toggle D (see Chapter 
13). 
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CBASIC/86 differs from many other basics in 
its requirement that keywords and identifiers may not be 


run together. For instance: 
READA 
is not accepted by the  CBASIC/86 compiler. The 


statement must be written: 
READ A 


FORI-JTO1U is a valid  CBASIC/86 statement, but 
it assigns the variable JTO10 to the variable FORI. 


The CBASIC/86 compiler is invoked as follows: 
CBAS86 «filename» [«disk ref>] [$<toggle> [{<toggle>}] 


where filename is the name of the source file. A file 
type of BAS is assumed by the compiler. Compiler toggles, 
preceded by a dollar sign, may follow the file name. They 
are discussed in Chapter 13. 


The compiler produces an intermediate file in the 
CBASIC/86 machine language. The intermediate file uses 
the same name as the source program but of type INT. The 
INT file is normally placed on the same disk as the 
source file. The disk reference is used to specify the 
drive on which the programmer desires to have the INT 
file placed. The disk reference is optional: if present it 
is of the form A:, B:, etc. 


The following command will compile the program 
di INVENTORY. BAS taking the source from the currently 
— selected drive, and place the INT file on drive B: 
CBAS86 INVENTORY B: 
£ a listing is selected (section 13.2), the name of 
the program as it appears following CBAS86 and any 
other characters up to the dollar sign or end of the 


command will appear in the heading of each page of the 
listing. For instance: 


CBAS86 COST ON 7 NOVEMBER 1989 SEBF 
will result in the following heading: 


CBASIC/86 COMPILATION OF COST ON 7 NOVEMBER 1980 


a 
U, 
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The source program is normally listed on the console 
device. Any error messages will be listed after the 
statement in which the error was detected (see section 
13.3) If errors are detected during compilation, the 
source file must be corrected using the text editor. The 
compiler error messages are Listed in Appendix A. The 
program is then recompiled. If no errors occur during 
compilation, the intermediate file may be executed by 
typing the command: 


CRUNB6 «filename» [TRACE [<lnl>£,<1n2>]]] [<cmd> 1 


The trace option is described in chapter 13. The 
command field L «cmd» ) is used with ‘the COMMANDS 
pre-defined function discussed in Chapter 7. 


If errors are found during execution, the source 
program must be corrected and then recompiled. Runtime 
error messages are described in Appendix B. 
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FORMING EXPRESSIONS 


This chapter discusses the formation of expressions. 
irst “he components of expressions, constants and variables, 
are described. These elements are then combined to form 
expressions. Expressions are a fundamental building block 
used in many CBASIC/86 statements. 


3.41 Strings 


A string constant is defined as zero or more valid 
alphanumeric characters enclosed by quotation marks (s 
Since a continuation character is treated as part of the 
string, strings defined as constants in the source program 
must be contained on a single line. A carriage return may 
not be part of a string. Embedded quotation marks are 
entered as two adjacent quotes. 


The following examples demonstrate valid 
string constants: 


gcc ud 

"July 4, 1979" 

"Enter your name please" 

UT LOOK, look, "" said Tom" 
In the final example the string is: 

"Look, look," said Tom 

Internally, strings are stored with the length of the 

string as the first byte. The characters of the string 


follow. The length is stored as a binary number from Y to 
255. 


3.2 Numbers 


Two types of numeric quantities are supported by 
CBASIC/86: Integer and Real. A real constant may be 
written in either fixed format or exponential notation. 
In both cases it may contain from 1 to 14 digits, a 
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sign, and a decimal point. In exponential notation the - 


exponent is of the form "Esdd", where 's', if present, is 
a valid sign (+, -, or blank) and where ‘dd’ is 
one or two valid digits. The sign is the sign of the 
exponent and should not be confused with the optional 
sign of the mantissa. The numbers range from 1.9E-64 
to  9.9999999999999E62. Although only 14 significant 
digits are maintained internally by CBASIC/86, more 
digits may be included in a real constant. Real 
constants are rounded to 14 significant digits. 


Real numbers are stored in eight bytes of memory. The 
first byte is the sign and exponent. The exponent is 
maintained in excess 64 code. The seven remaining bytes 
contain a normalized mantissa stored as packed decimal 
digits. The high order four bits of the rightmost byte is 
the most significant digit of the mantissa. 


If a constant does not contain an embedded decimal 
point, is not in exponential notation, and ranges from 
~32768 to +32767, the constant is treated as an integer. 
Integer values are stored as sixteen bit two's complement 
binary numbers. 


Integer constants may also be expressed as hexadecimal 


and binary constants. If the constant is terminated by 
the Letter H it is hexadecimal. The letter B terminates a 
binary constant. The first digit of a hexadecimal 


constant must be numeric. For instance 255 in hexadecimal 
would be @FFH, not FFH. FPH would be a valid identifier 
(see section 3.3). 

Binary and hexadecimal constants may not contain a 
decimal point. The value retained is the sixteen least 
significant bits of the number specified. 

In this manual the term real number and floating point 
number will be used  interchangeably. The term numeric 
will apply to either a real or integer quantity. 

Examples of valid numbers are: 
1, 1.9, -99, 123456.789 
1.993, .01, 4E12, 1.77E-9 
1.S5E+3 is equivalent to 1500.9 
1.SE-3 is equivalent to .9@15 


lab9H, 1911111968, FEED ` 
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3.4 


Identifiers 


An identifier begins with an alphabetic character 
followed by any number of alphanumeric characters or 
periods. Identifiers identify or name variables used 
Within a program. Only the first 31 characters are 
considered unique, however the identifier may be of any 
length. If the last character in the identifier is a 
dollar sign, the identifier is of type string. If the 
identifier ends in a percent sign, it represents an 
integer. Those identifiers not ending with a dollar sign 
or percent sign are of type real. 


All lower case letters appearing in an identifier are 
converted to upper case unless compiler toggle D is set 
(Chapter 13). Using periods in identifiers make programs 
more readable. For instance  BAD.DEBT$ is clearer than 
BADDEBT$. | 

Using identifiers which are longer than two characters 
improves program readability without increasing the size 
of the intermediate file created by the compiler. 

Examples of valid identifiers are: 
A, BS, cl, cl12343 
Payroll.Record, NEW.SUM.AMT 
INDEX$, FLAG.3$, counter$ 


ANSWERS, file.names, CUSTOMER.ADDRESSS 


Variables and Subscripted Variables 
The general form of a variable is: 
«identifier» [ ( «subscript list» ) ] 

The general form of a subscript list is: 
«expression» ( , «expression» } 


The expressions in a subscript list must be numeric. 
Access to array elements is more efficient if integer 
expressions are used in subscript lists. Le the 
expression is real, the value is rounded to the nearest 
integer prior to using the value. If an expression in a 
subscript list is of type string, an error occurs. The 
subscript list indicates that the variable is a 
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subscripted variable and indicates which element of the 
array is being referenced. 


Fach variable has a value associated with it at all 
times during execution of a program. Initially numbers 
are zero and strings are null strings. A string variable 
does not have a fixed length associated with it. Rather, 
as different strings are assigned to the variable, the 


storage is dynamically allocated. The maximum length 
which may be assigned to a string variable is 255 
characters. 


The identifier used to represent a variable may not 
begin with FN. Such identifiers are used to specify user 
defined functions (See Chapter 8). 


A variable in CBASIC/86 may represent an integer, 
real number, or a string depending on the type of 
the identifier. 


Examples of variables are: 


xS 
PAYMENT 
day.of.deposit3 


The following examples show subscripted variables: 
y$(it, j3) 
Cost (39:3) 
POS%(XAXIS%, YAXIS$) 
INCOME ( AMT (CLIENTS), , CURRENT. MONTHS ) 


When subscripts are calculated, a check is made to 
ensure that the element selected resides in the referenced 
array. A runtime error occurs if it does not. The 
runtitne check insures that the location calculated is 
included within the physical storage area of the array. 
It is not necessarily a valid entry. 


Before a subscripted variable may be referenced in a 
program, it must be dimensioned using the DIM statement. 
The DIM statement specifies the upper bound of each 
subscript and allocates storage for the array. 


A DIM statement is an executable statement; each 
execution will allocate a new array. If the array 
contains numeric data the previous array is deleted prior 
to allocating space for a new array. If the array lS. Sf 
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type string each element must be set to a null string 
prior to re-executing the DIM statement to regain 
the maximum amount of storage. The general form of a 
DIM statement is: 


[«stmt number>] DIM <identifier> (<subscript list») 
[ <identifier> (<subscript list>)) 


The dimension statement dynamically allocates space 
for numeric or string arrays. Elements of string arrays 
may be any length up to 255 bytes, and change in length 
as they assume different values. Initially numeric arrays 
are set to zero and all elements of string arrays are null 
strings. 


An array must be dimensioned explicitly; no default 
options are provided. Arrays are stored in row-major 
order. 

The subscript list is used to specify the number of 
dimensions and the extent of each dimension of the array 
being declared. The subscript list may not contain a 
reference to the array being dimensioned. 

All subscripts have an implied lower bound of zero. 
Examples of DIM statements: 

DIM A(18) 

DIM ACCOUNTS (188) ,ADDRESS$ (198) , NAMES (1986) 
DIM 8%(2,5,19), SALES. PERSONS (STAFT.SIZE?S) 
DIM X(A3(1%),M3%,N3) 


The same identifier may be used as both a variable and 
as a subscripted variable within the same program. 


Expressions 

Expressions consist of algebraic combinations of 
function references, variables, constants, and operators. 
They evaluate to an integer, real, or string value. 


Function references are discussed in Chapter 8. ‘The 
hierarchy of operators is: 
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f 1) nested parenthesis —  ( ) I 

2) ^ power operator 

3) K I | | 

4) +, -, concatenation (+), unary +, unary - 

5) relational operators <, <=, >, >=, 3, *> 
LT, LE, GT, GE, EQ, NE 

6) NOT 

7) AND 

3) OR, XOR 


Arithmetic and relational operations may be performed 
on either integer or real numbers. If an integer and real 
number are to be combined using one of these operators, 
the integer value is first converted to a real number. 
The operation is then performed on the two real values 
resulting in a real value. This is referred to as mixed 
mode arithmetic. 


Mixed mode operations take additional time to execute 
and the compiler generates more code. A mixed mode 
expression will always evaluate to a real value. 


If real values are used, the power operator calculates 
the logarithm of the number being raised to the power. 
Since the logarithm of a negative number is undefined, a 
warning results when the number to the left of the 
operator is negative. The absolute value of the negative 
quantity is used to calculate the result. The exponent 
may be either positive or negative. 


If both values used with the power operator are either 
integer constants or integer variables, the result is 
calculated by successive multiplication. This allows a 
negative integer number to be raised to an integer power. 
In the case of integers, if the exponent is negative, the 
-esult is zero. In all cases, 0 ^ 9 is 1 and @ ^ X (when 
X is not equal to g) is 9. 


If the exponent is an integer but the base 1s real, 
the integer is converted to a real value prior £0 
calculating the result. Likewise, if the exponent is real 
but the base is an integer quantity, the result is 
calculated using real values. 


tring variables may only be operated on by relational 


operators and the concatenation operator. Mixed string 
and numeric operations are not permitted. The mnemonic 
relational operators (LT, LE, etc.) are interchangeable 
with the corresponding algebraic operators (<, <=, etc.). 
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Examples: 
100 LET A =B + C 
X(3,POINTER$) = 7.32 * Y + X(2,3)- 
SALARY = (HOURS.WORKED * RATE) - DEDUCTIONS 
dateS = months + " " + dayS +", " + years 
INDEX$ = INDEX + 1 


REC.NUMBER = OFFSETS + NEXTRECS 
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CONTROL STATEMENTS 


GOSUB Statement 
F<stmt number>] GOSUB «stmt number» 
«stmt number>] GO SUB «stmt number» 


The location of the next sequential instruction is 
saved on the return stack. Control is then transferred to 
the statement labeled with the statement number following 
the GOSUB. 


Subroutine calls may not be nested greater than 29 
deep. 


Examples: 
GOSUB 7409 


PRINT "BEFORE TABLE" 
GOSUB 239 REM PRINT THE TABLZ 
PRINT "AFTER TABLE" 
STOP 
200 REM PRINT THE TABLE 
POR INDEX3 = 1 TO TABLE.SIZE% 
PRINT TABLE(INDEX3) 
NEXT INDEX? 
RETURN 


RETURN Statement 
(<stmt number>] RETURN 


The RETURN statement causes the execution of the 
program to return to the statement that immediately 
follows the most recently executed subroutine call. That 
is, execution continues at the location at the top of the 
return stack. The call may be a GOSUB statement, ON. 
.GOSUB statement, or multiple line function call. See 
Chapter 8 for a discussion of multiple line functions. 
Refer also to section 4.12 for information on the effect 
of CHAINING on subroutine linkage. 
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If à return is executed without previously executing a 
GOSUB, ON...GOSUB, or multiple line function call, a 
runtime error occurs. 

Examples: 


500 RETURN 


IF ANSWER.VALIDS THEN RETURN 


GOTO Statement 
[«stmt number>] GOTO «stmt number» 
[«stmt number>] GO TO «stmt number» 


Execution continues at the statement labeled with the 
Statement number following the GOTO or GO TO. If the 
Statement number branched to is not an executable 
statement, execution continues with the next executable 
statement after the statement number. 


If the statement number to which control is being 
^ransferred does not exist, an error will result. 


Examples: 
ap GO TO 35 


GOTO 188.5 


IF Statement 


[<stmt nunber>] IF «expression» THEN «statement list» 
[ELSE «statement list» ] 


[«stmt number»] IF «expression? THEN «stmt number»? 


If the value of the expression is not zero, the 
statements which make up the first statement list are 
executed. Otherwise, the statement list following the 
ELSE is executed, if present, or the next sequential 
statement following the IF statement is executed. 


In the second form of the IF statement, when the 
expression is not equal to zero, an unconditional branch 
to the statement number occurs. Note that this form of 
the IF statement may not have an else clause. This 
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“variation is included in CBASIC/86 for compatibility 
with previous versions of Basic. 


The expression in an IF statement will normally be a 
logical expression. That is, it evaluates to either true 
(-1)or false (9). However, CBASIC/86 will accept 
any numeric expression treating a value other than 
zero as true. The expression should be of type 


integer. This will reduce execution time and also reduce 
the size of the intermediate file generated by the 
compiler. if the expression is real, the value is 


rounded and converted to an integer. A string expression 
will result in an error. 


A statement list is composed of one or more 
statements in which each pair of statements is separated 
by a colon (:). The colon is not required after the THEN 
nor is it required before or after the ELSE. It is only 
used to separate statements. An IF statement must be the 
First statement on a line; it may not follow a colon. In 
other words IF statements may not be nested.- 


Examples: 
IF ANSWERS="YES" THEN GOSUB 598 
IF DIMENSIONS.WANTEDS THEN PRINT LENGTH, HEIGHT 


IF VALID$ THEN A 
PRINT MSGS(CURRENT.MSG$) :\ 


GOSUB 288 :\ UPDATE RECORD 
GOSUB 218 :\ WRITE RECORD 
NO.OF . RECORDS3=NO.OF .RECORDS3+1 :\ 
RETURN 


Tr X» 3 THEN X 22 : Y =B: Zag 


IF YES% = TRUES THEN PRINT MSGS(1) \ 
ELSE PRINT MSGS(2) 


IF TIME»LIMIT THEN \ 
PRINT TIME.OUT.MSGS :\ 
BAD.RESPONSES$ = BAD.RESPONSES$+1 :\ 
QUESTIONS = QUESTION$-1 ^ 
ELSE \ 
PRINT THANKS.MSGS :\ 
GOSUB 13998 :\ ANALYZE RESPONSE 
ON RESPONSES GOSUB V 
2898, 2210, 2829, 2838, 2940 :\ 
RETURN 


a) 


C) 
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In the examples above, note that the colon (:) is used 
to separate statements within a statement list and the 
backslash (1) is used to continue a statement onto another 
line. 


Since the compiler ignores anything following and on 
the same line with the backslash, comments may be inserted 
without using the keyword REM. 


WHILE Statement 
[<stmt number>] WHILE «expression? 


Execution of all statements between the WHILE 
Statement and its corresponding WEND is repeated until the 
value of the expression is zero. If the value is zero 
initially the statements between the WHILE and WEND will 
not be executed. Variables used in the WHILE expression 
may change during execution of the loop. 

The expression should be of type integer. This will 
reduce execution ‘time and also reduce the size of the 
intermediate file generated by the compiler. If the 
expression is real, the value is rounded and then 


. converted to an integer. A string expression will result 


in an error. 


WEND Statement 
[<stmt number>] WEND 


A WEND statement denotes the end OT the 
closest unmatched WHILE statement. A WEND statement 
must be present for each WHILE statement in a program. 


Branching to a WEND statement is the same as branching 
to its corresponding WHILE statement. 


Examples: 


WHILE -1 
PRINT "X" 
WEND 


WHILE X ^ Z 
PRINT X 
X =X - 1.0 
WEND 
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4.7. 


TIME = 0.0 
TIME.EXPIRED$ = FALSE% 
WHILE TIME « LIMIT 

TIME = TIME + 1.9 

IF CONSTAT% TEEN Y 

RETURN REM ANSWERED IN TIME 

WEND 
TIME.EXPIRED% = TRUE? 
RETURN 


WHILE ACCOUNT.IS.ACTIVES 
GOSUB 190 REM ACCUMULATE INTEREST 
WEND 


WHILE FILE.EXISTS$% 
WHILE TRUES 
IF ARGS = ACCTS THEN \ 
ACTIVITY? = TRUES :* 
RETURN 
IF ARGS < ACCTS THEN \ 
ACTIVITYS = FALSE :\ 
RETURN 
GOSUB 390989 REM READ ACCTS REC 
WEND 
WEND 
ACTIVITY} = FALSES 
RETURN 


WHILE TRUES 

INPUT LINE STRINGS 

IF STRINGS = CONTINUES THEN RETURN 
WEND 


FOR Statement 


[<stmt number>] FOR «index» = «expression» TO 
«expression? [STEP «expression»] 


Execution of all statements between the FOR statement 
and its corresponding NEXT statement is repeated until the 
indexing variable, which is incremented by the STEP 


expression after each iteration, reaches the exit 
criteria. 

If the step expression is positive, the loop exit 
criteria is met when the index exceeds the value of the TO 
expression. If the step expression is negative, the 


index must be less than the value of the TO expression for 
the exit criteria to be satisfied. 
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The index must be an unsubscripted variable. It is 
initially set to the value of the first expression. Both 
the TO and STEP expressions are evaluated on each loop; 
all variables associated with these expressions may change 
within the loop. 


Additionally, the index may be changed during 
execution of the loop. The type of the index and ail 
expressions should be the same. They may be either real 
or integer. If any of the expressions re of type 
string, an error occurs. Particular care should be taken 
to insure proper matcning of the expression types. For 
instance: 


FOR I$ = 1 to DONE 


will generate unneccessary code because DONE is real but 
I$ and 1 are integers. A more subtle example is: 


FOR I = 1. to DONE 
In this case I and DONE are real but 1l. is an integer. 


There is one situation when a FOR statement 
that appears to be valid will generate a compiler error 
"PE". This occurs if the type of the expression following 
the TO is not the same as the type of the loop index 
variable. 


For example: 
TOR I = 1 TO 13 STEP 3 


results in an error "FE" because the index variable I is 
real but the value following the TO is an integer. 
Changing the index to 1% will eliminate the error. 


If the STEP clause is omitted, a default value of one 
is assumed. The type of the STEP expression in this case 
will be the same as the type of the index. 


The statements within a FOR loop are always executed 
at least once. Examples: 


FOR INDEX% = 1 TO 10 
SUM = SUM + VECTOR( INDEX?) 
NEXT INDEX3 


FOR POSITION=MARGIN+TABS TO PAPER.WIDTH STEP TABS 
PRINT TAB(POSITION);SET.TABS; 


NEXT POSITION 
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If a step of one is desired, the STEP clause should be 
omitted. The execution will be much faster since fewer 
runtime checks will be made. In addition, less 
intermediate code is produced. 


The speed of execution will also be substantially 
improved if all the expressions are of type integer. 


NEXT Statement 
[«stmt number>] NEXT [«identifier» [,«identifier»]] 


A NEXT statement denotes the end of the closest 
unmatched FOR statement. . If the optional identifier is 
present, it must match the index variable of the FOR 
statement being terminated. 


The list of identifiers allows terminating multiple 
TOR statements. The statement number of a NEXT statement 
may appear in an ON or GOTO statement, in which case 
execution of the FOR loop continues with the loop 
variables assuming their current values. 


The following example of nested FOR loops shows the 
use of a list of identifiers: 


FOR 13 = 1 TO 19 
FOR J% = 1 TO 29 
X(13,J3) = I$ + J$ 
NEXT J$, I$ 


The final example shows the use of a NEXT statement 
without an identifier. 


FOR LOOP$ = 1 TO ARRAY.SIZE3S 
GOSUB 2490 


GOSUB 3609 
NEXT 


ON Statement 


(<stmt number>] ON «expression» GOTO 
«stmt number> {, «stmt number>} 


[<stmt numbers) ON «expression» GOSUB 
«stmt number> [{, «stmt number?! 
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The expression is used to select the statement number 
at which execution will continue. If the expression 
evaluates to l, the first statement number is selected, 
and so forth. In the case of an ON...GOSUB statement the 
address of the statement following the ON statement is 
saved on the return stack. A runtime error occurs if the 
expression is less than one or greater than the number of 
statement numbers in the list. 


The expression must be numeric. A string expression 
will generate an error. Integer expressions will improve 
execution speed. If a real value is used, it is rounded 
to the nearest integer prior to selecting the statement 
number to branch onto. 


The keywords GOTO and GOSUB may alternately be coded 
as GO TO and GO SUB. 


Examples: 
ON I$ GOTO 18, 29, 39 
ON J% - 1 GO SUB 12.12, 12.290, 12.30, 12.40 


WEILE TRUE$ 
GOSUB 199 REM ENTER PROCESS DESIRED 
GOSUB 112 REM TRANSLATE PROCESS TO NUMBER 
IF PROCESS.DESIRED$ = Ø THEN RETURN 
IF PROCESS.DESIRED% < 6 THEN ^ 
ON PROCESS.DESIRED% GOSUB Y 


1908, \ ADD A RECORD 

1918, \ ALTER NAME 

1828, \ UPDATE QUANTITY 

1830, \ DELETE A RECORD 

1348, ^ CHANGE COMPANY CODE 

1958 \ REM GET PRINTOUT 
ELSE GOSUB 488 REM ERROR - RETRY 


STOP Statement 
(«stmt number»] STOP 


When a STOP statement is encountered, program 
execution  terminates. All open files are closed, the 
print buffer is emptied and control returns to the host 
system. Any number of STOP statements may appear in a 
program. | 
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A STOP statement is appended to all programs by the 
compiler. 


Examples: 
408 STOP 


IF STOP.REQUESTED THEN STOP 


4.11 RANDOMIZE Statement 
[<stmt number»] RANDOMIZE 


The RANDOMIZE statement initializes or seeds the 
random number generator. The time taken by the operator 
to respond to an INPUT statement (Chapter 5) is used to 
set the seed. This time will vary with each execution of 
a program. Therefore, for RANDOMIZE to work correctly, it 
must be preceded by an INPUT statement. 


Examples: 
450 RANDOMIZE 


RANDOMIZE 


4.12 CHAIN Statement 
C<stmt number»] CHAIN <expression> 


The CHAIN Statement transfers control from the 
program currently being executed to the program selected 
by the expression. The expression must be of type string 
or an error will occur. The expression must also evaluate 
to any unambiguous file name. A file with that name and 
of type INT must reside on the specified drive. Le oo 
drive is specified, the currently logged-in drive is used. 
In the discussion on chaining the first program executed 
is the main program. 


The following statement: 
CHAIN "8B: PAYROLL" 
Will cause execution to continue with the first statement 


in the program PAYROLL. PAYROLL.INT must reside on drive 
B. Regardless of the file type specified, a type of INT 


is forced. 
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The CBASIC/86 runtime monitor maintains four 


partitions in memory. They are designated the constant, 
code, data statement, and variable areas. The size of 
these areas is determined by the compiler. If in 4 


chained program one or more of these areas is larger 
than that corresponding area in the original or main 
program, 4 runtime error occurs. In other words the 
main program constant, code, data statement, and variables 
areas must be as large or larger than any 
corresponding area in a program that is subsequently 
chained. If this is not the case, the programmer 
must use the  $CHAIN compiler directive to adjust the 
size of the main programs partitions. The $CHAIN 
directive is discussed in Chapter 12. 


In order to determine the size of each partition in a 
program the compiler produces a table of these values 
after each compilation. The values include the effect of 
the $CHAIN directive if present. The $CHAIN directive 
need only be used in the main program. The relationship 
of partition size between programs chained is not 
significant. 


A CHAIN statement may appear in any program. A 
program may chain back to the program whieh invoked it, to 
a new program, or to itself. If a STOP statement is 


executed in any program, execution stops and control is 
returned to CP/M-86. 


Upon execution of a CHAIN statement the return stack 
is reset. All open files are closed and a restore is 
performed. Data may be passed from one program to another 
using the COMMON statement discussed below. 


4.13 COMMON Statement 
[«stmt number»] COMMON «variable» { , «variable? ] 


If present, COMMON statements must be the first 
statements in a program except that blank lines and REM 
statements may precede COMMON statements. A COMMON 
statement is a non-executable statement and specifies that 
the variables listed will be common to the main program 
and all programs executed through a CHAIN statement. 


1f the main program contains COMMON statements, each 
chained program must have COMMON statements that match the 
COMMON statements in the main program. Matching means 
that there are the same number of variables in each COMMON 
statement and, that the type of each variable in the main 
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program's COMMON statement matches the type of each 
variable in the chained program's COMMON statement. 
Also, dimensioned variables must have the same number of 
subscripts in each program. 


Subscripted variables are specified by placing the 
number of subscripts in parenthesis following the array 
mame. For instance: 


COMMON X, Y, A(3), BS(2) 


specifies that X and Y are nonsubscripted real variables 
and will be common to all chained programs. A and 8S are 
arrays which may be accessed by all programs. A has three 
subscripts: while BS has two. The COMMON Statement does 
not indicate the size of any subscript. 


The svecification of an array in a COMMON statement is 
not, in general, the same as the specification in a DIM 
statement. This point must be clearly understood. For 
example: 


COMMON A(3) 
might be used with 
DIM A(29,398,29) 
but if it was used with 
DIM A(3) 
an error would occur. 


Prior to accessing an element in an array in COMMON, 
the array must be created using the DIM statement. 
Failure to do this will lead to catastrophic results! 
The first program requiring access to the array should 
insure that a DIM statement is executed specifying the 
desired range for each subscript. Subsequent programs may 
access this array with the data remaining unchanged 
through the chaining process. If a subsequent program 
executes a DIM statement for this array, the data in the 
array will be lost. In other words the array will be 
re-initialized. However, in the case of string 
arrays, elements in the array will not be freed from 
memory. The programmer should set elements of string 
arrays to null strings prior to executing a second DIM 
statement for the array. 
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 INPUT/OUTPUT STATEMENTS AND FUNCTIONS 


General Information 


This chapter introduces input and output statements 
and functions. File accessing statements are discussed in 
Chapter 10; formatted printing is explained in Chapter 9. 


CBASIC/86 prints each character as it is generated. 
Ifthe length of the line being printed exceeds the width 
of a print line, printing continues on the next line. 
That is, a carriage return and a linefeed are output. 
The width of the print line may be controlled by the user. 


Input from the console is read a line at a time 
instead of a character at atime. This allows the user to 
take advantage of the  CP/M-86 line-editing functions. 
A control-C entered from the keyboard may return the user 
to CP/M-86 without closing open files. 


In this manual console refers to the physical device 
assigned to the CP/M-86 logical device CON:. Likewise 
the List device refers to the physical unit assigned to 
the CP/M-86 logical device LST:. For more information on 
logical and physical devices contact Digital 
Research. 


PRINT Statement 


[stmt number>] PRINT «expression» <delim> 
l «expression» <delim> } 


The PRINT statement outputs the value orf each 
expression to the console unless an LPRINTER statement 
(described below) is in effect. In the latter case output 
is directed to the list device (see section 5.3). If the 
length of a numeric item would result in the line width 
being exceeded, the number to be printed begins on the 
next line. Strings are output until the line width is 
reached and then the remainder of the string, if any, is 
output on the next line. 


The delimiter between expressions may be either a 
comma or a semicolon. The comma causes automatic spacing 
to the next column that is a multiple of 20. If this 
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spacing results in a print position greater than the 
currently specified width, printing continues on the next 
line. A semicolon causes one blank to be output after a 
number and no spacing to occur after a string. 


A carriage return and a linefeed are automatically 
printed when the end of a print statement is encountered 
unless the last expression is followed by a comma or a 
semicolon. These partial lines are not terminated until 
one of the following conditions occur: (1) another PRINT 
whose list does not end in either a comma or semicolon is 
executed, (2) the Line width is exceeded, (3) an LPRINTER 
or CONSOLE statement is executed, or (4) the program 
executes a stop statement. A PRINT statement with no 
expression list will cause a carriage return and a 
linefeed to be printed. 


If execution of a program is terminated due to an 
error, a carriage return and a linefeed ara output. 


Examples: 
PRINT 
PRINT AMOUNT. PAID 
PRINT QUANTITY, PRICE, QUANTITY * PRICE 


PRINT "TODAY'S DATE IS: ";MONTHS;" ":DAY$;", “;YEAR$S 


LPRINTER Statement 
[stmt number»] LPRINTER [WIDTH <expression>] 


-After execution of the LPRINTER statement all PRINT 
statement output, which would normally be directed to the 


console, will be output on the list device. The list 
device is the physical unit currently assigned to LST: by 
CP/M-86. The WIDTH clause is optional. If present 


the expression will be used to set tne line width of the 
list device. 


If the console's cursor position is not 1, a carriage 
return and  linefeed is output to the console. In this 
context the cursor position 1s the value that would be 
returned by the POS function (see section 3.5) just prior 
to executing the LPRINTER statement. 
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The expression should be of type integer. It. it is 
real, the value is rounded to an integer. An error occurs 
if the expression is of type string. 


If the width option is not present, the most recently 
assigned width is used. Initially she width is set to 
132. A width of Y will result in an infinite line width. 
With a zero width in effect carriage returns and linefeeds 
are never automatically output to the printer as a result 
of exceeding the Line width. 


Examples: 
500 LPRINTER 
IF HARDCOPY.WANTED$ THEN LPRINTER WIDTH 128 


LPRINTER WIDTH REQUESTED.WIDTHi 


5.4 CONSOLE Statement 


[stmt number> ] CONSOLE 


Execution of the CONSOLE statement restores printed 
output to the console. the console is the physical unit 
currently assigned to CON: by CP/M-86. 


If the list device print position is not 1, a carriage 
return and linefeed are output to the list device. 


Examples: 
490 CONSOLE 


IF END.OF.PAGE% THEN Y 
CONSOLE :\ | 
PRINT USING "##,### WORDS THIS PAGE";WORDS$ :1 
INPUT "INSERT NEW PAGE, THEN CR";LINE TRASHS :^ 
LPRINTER 


The width of the console device may be changed with 
the POKE statement (Chapter 6). The console width is one 
byte at location 272 base 10 or 116H. The new console 
width will become effective at the next execution of a 
CONSOLE statement. The console Line width is initially 
set to 80 (50H). 


A width of zero (2) results in an infinite width. 
With a zero width in effect, carriage returns and 


O 
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linefeeds are never automatically output to the console as 


a result of exceeding the line width. 


POS Pre-defined Function 
POS 


POS returns the next position to be printed on either 
the console or the line printer. This value will range 
from 1 to the line width currently in effect. 


If a LPRINTER statement is in effect, POS will return 
the next position to be printed on the printer. Note 
that POS returns the actual number of characters sent to 
the output device. oe cursor control characters 
are transmitted, they are also counted even though the 
cursor is not advanced. 


Examples: 
PRINT “THE PRINT HEAD IS AT COLUMN: “; POS 


IF (WIDTH.LINE - POS) < 15 THEN PRINT 


TAB Pre-defined Function 
TAB («expression») 


TAB causes the cursor or print head to be positioned 
to a position specified by the value of the expression. 
If tne value of the expression is less than or equal to 
the current print position, a carriage return and linefeed 
are output and then the tab is executed. 


The TAB function is implemented by outputting blank 
characters until the desired position is reached. If 
cursor or printer control characters have been output, the 
cursor or print head could be positioned incorrectly. 


The TAB function may only be used in PRINT 
statements. 

The expression must be numeric. ES a string 
expression is specified, an error occurs. If the 


expression is real, it is first rounded to an integer. 
IZ the expression is greater than the current line width, 
an error occurs. 


e 
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Examples: 
PRINT TAB(15):"X" 
PRINT "THIS IS COL. 1":TAB(50):"TEIS IS COL. 58" 
PRINT TAB(X$-Y$/2$);:"1"; TAB( POSS«-OFFSET$]: 


PRINT TAB(LEN(STRS(NUMBER))); "*" 


READ Statement 
[stmt number>] READ «variable» {, «variable»] 


A READ statement assigns values from DATA statements 
to the variables. DATA statements are processed 
sequentially as they appear in the program. An attempt to 
read past the end of the last DATA statement produces a 
runtime error. 


Examples: 
READ NAMES ,AGE%, EMPLOYERS, SSN 


FOR PROD.NO$ = 1 TO NO.OF.PRODUCTS$ 
READ PRODUCT.NAMES ( PROD.NO$) 
NEXT PROD.NO$ 


DATA Statement 
fstmt number>] DATA «constant» L. <constant> } 


DATA statements are nonexecutable statements which 
define string, floating point, and integer constants which 
are assigned to variables using a READ statement. Any 
number of DATA statements may occur in a program. They 
may be placed anywhere in the program. 


The constants are stored consecutively in a data area 
as they appear in the program and are not syntax checked 
by the compiler. Strings may be enclosed in quotation 
marks or optionally delimited by commas. 


A DATA statement must be the only statement on a line 
and it may not be continued with a continuation character. 
However, all DATA statements in a program are treated 
collectively as a concatenated list of constants separated 


by commas. 
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Examples: 
439 DATA 332.33, 43.0089ES, "ALGORITHM" 
DATA ONE, TWO, THREE, 4, 5, 6 
In the second example ONE, TWO and THREE are strings. 


If a real constant is assigned to an integer variable 
with a READ statement, the constant is truncated to the 
integer portion of the real number. I: the value of a 
number assigned to an integer is outside the range of 
CBASIC/86 integers, incorrect values will be assigned. If 
a real number exceeds the range of real numbers, an 
overflow warning occurs and the largest CBASIC/86 
number is used in its place. 


RESTORE Statement 
(stmt number») RESTORE 

A RESTORE statement repositions the pointer into the 
data area so that the next value read with a READ 
statement will be the first item in the first DATA 
statement. 


The purpose of a RESTORE statement is to allow 
re-reading the constants contained in DATA statements. 


Examples: 
3500 RESTORE 
IF END.OF.DATAS THEN RESTORE 


When a CHAIN statement is executed a RESTORE is 
performed. 


INPUT Statement 


[stat number»] INPUT [<prompt string? ; ] 
«variable» {, <variable»>) | 


If the prompt string is present, it is printed on tne 
console, otherwise a question mark is output. In both 
cases a blank is then printed and a line of input data is 
read from the console and assigned to the variables 4s 
they appear in the variable list. 


(34) 
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The variables may be either simple or  subscripted 
string or numeric variables. 


At most 255 characters may be entered in response to 


an INPUT statement. If 255 or more characters are 
entered, inputting is automatically terminated and 
the first 255 characters re retained. Additional 


characters may be lost. The 255 characters include all 
characters entered in response to an input statement no 
Matter how many variables appear in the variable list. 


All CP/M-86 line editing functions such as control-U 
and rubout are in effect. A control-C may terminate 
the program without closing open files. If a control-Z is 
the first character entered in response to an INPUT 
Statement the program is terminated in the same manner as 
if a STOP statement had been executed. 


The data items entered at the console must be 
Separated by commas and are terminated by a carriage 
return. Strings may be enclosed in quotation marks in 
which case commas and leading blanks may be included in 
the string. 


The prompt string must be a string constant. If it is 
an expression or a numeric constant, an error occurs. 


If the value entered for assignment to an integer is 
real, the number entered is truncated to the integer 
portion of the real number. If the value of a number 
assigned to an integer variable is outside the range of 
integers, an incorrect value will be assigned. Ifa real 
number exceeds the range of  CBASIC/86 real numbers, 
the largest real number is assigned to the variable, 
and a warning is printed on the console. 


If too many or too few data items are entered, a 
warning is printed on the console, and the entire line 
must be re-entered. 

Examples: 
INPUT AMOUNT], AMOUNT2, AMOUNT3 
INPUT "WHAT FILE, PLEASE?";FILE.NAMES 
INPUT "YOUR PHONE NUMBER PLEASE:"; PHONE.NS 
INPUT "";ZIP.CODES$ 


A special type of INPUT statement is the LINE INPUT. 
The general form of this statement is: 
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- [stmt number»] INPUT [«*prompt ee oc e 
LINE <variable> . i | b um 


This statement functions as described above with the 
following exception. Only ome variable is permitted 
following the keyword LINE. It must be of type string. 
Any data entered from the console is accepted and assigned 


to this variable. The data is terminated by a carriage 
return. 


A null string may be accepted by responding to an 
INPUT LINE statement with a carriage return. 


An-error occurs if the variable specified to receive 
the input is not of type string. 


Examples: B E 
INPUT "ENTER ADDRESS";LINE ADDRS 
INPUT "TYPE RETURN TO CONTINUE":LINE DUMMYS 


Prompt strings are directed to the console even when 
an LPRINTER statement is in effect. 


QUT Statement 
[stmt number»] OUT «expression» , «expression» 

The low-order eight bits of the second expression are 
sent to the CPU output port selected by all sixteen 
bits of the first expression. 

Both arguments must be numeric; the first should be in 
the range of Y to 255 for the results to be meaningful. 
An error occurs if either expression is of type string. 
Real values are converted to integers prior to 
performing an OUT instruction. Examples: 

OUT 1,98 

OUT FRONT.PANEL3, RESULTS 

IF X% > 5 THEN OUT 9, ((X*X)-1.)/2. 
OUT TAPE.DRIVE.CONTROL. PORTS, REWIND? 


OUT PORTS (SELECTEDS), ASC("S$")} 
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2.14 INP Pre-defined Function 


INP («expression») 


INP returns the value input from the CPU 1/0 
= port specified by the expression. This 2Unee ion: s 


useful for accessing peripheral devices directly from 
the CBASIC/86 program. 

The argument must be numeric. An error occurs if it 
is a string. A real value will be rounded to the nearest 
integer. 

Examples: 
PRINT INP(ADDR3) 
IF INP(255) > 2 THEN PRINT CHRS(7) 
ON INP(INPUT.DEVICE.PORT%) GOSUB Y 
198, 200, 300, 489, 400, 400, 5900 
Sais CONSTATS Predefined Function 
CONSTAT$ 
CONSTAT$ returns the console status as an integer 


value. If the console device is ready, a logical true is 
returned otherwise a logical false is returned. 


Examples: 


IF CONSTAT% THEN ^ 
GOSUB 180 REM PROCESS OPERATOR INTERRUPT 


sa WHILE NOT CONSTAT$ Y 
WEND 


5.14 CONCHAR$ Pre-defined Function 


CONCHARS 


CONCHAR$ reads one character from the console device. 
The value returned is an integer. The lower eight bits of 
m the returned value are the binary representation of the 


ASCII character input. The high-order eight bits are 
zero. 


T D 
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I$ = CONCHARS 
CHARS = Y 


IF CONSTATS THEN \ 
CHARS = CONCHARS$ 

IF CHARS = STOPCHARS THEN VN 
RETURN 


Sa 
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MACEINE LANGUAGE LINKAGE STATEMENTS AND FUNCTIONS 


PEEK Predefined Function 
PEEK («expression») 


The PEEK function returns the contents of the memory 
location given by the expression. The value returned is 
an integer ranging from 2 to 255. The memory location 
must be within the address space of the computer being 
used for the results to be meaningful. The address is 
relative to the data segment. It is not possible to PEEK 
at addresses in other segments. 


The expression must be numeric. An error occurs if a 
string expression is specified. Real values are rounded 
to the nearest integer. 


Examples: 


196 MEMORY$=PEEK(1) 


FOR INDEX = 1 TO PEEK$( BUFFER?) 
IN.BUFFERS (INDEX?) = CHRS ( PEEK3 ( BUFFERS+INDEXS ) ) 
NEXT INDEXY3 


POKE Statement 
[*stmt number»] POKE <expression> , «expression» 


The low-order eight bits of the the second expression 
are stored at tne memory address selected by the first 
expression. The first expression must evaluate to a valid 
address for the computer being used for the results to be 
meaningful. The address is relative to the data segment. 
It is not possible to POKE to addresses in other segments. 





Both expressions must be numeric. An error occurs if 
a string expression is specified. Real values are rounded 
to the nearest integer. 
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Examples: 
750 POKE 1796,aSc("$") 


FOR LOC$ = 1 TO LEN(OUT.MSGS) 
POKE MSG.LOC%+LOC%, ASC(MIDS(OUT.MSGS,LOC$,1)) 
NEXT LOC% 


6.3 CALL Statement 
C<stmt number>] CALL «expression»? 


The CALL statement is used to link to a machine 
Language subroutine loaded with the SAVEMEM statement. 
The expression is the address of the subroutine being 
referenced relative to the base of the SAVEMEM area. 
This value must be within the address space of the 
computer being used. 

Control is returned to the CBASIC/86 program by 
executing an 3086 RET instruction. The hardware 
registers, with the exception of the segment registers and 
stack pointer, may be altered, and they need not be 
restored prior to executing the return instruction. 


The expression must be numeric. An error occurs if a 
string expression is used. Real values are rounded to the 


nearest integer. 
Examples: 
CALL SH 
2000 CALL ANALCG.INPUT$ = 
WHILE PEEK(PARAMETER$) <> 1 
CALL GET.RESPONSES 
WEND 
RETURN 


Arguments may be passed to machine language 
subroutines with the POKE and PEEK instructions. 


6.4 SAVEMEM Statement 


F «stmt number» ] SAVEMEM «constant» , <expression>? 


© o 
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The SAVEMEM statement reserves space for a machine 

language subroutine, and loads the specified file during 

— execution. Only one SAVEMEM statement may appear in a 
program. The file is loaded into the data segment. 


The constant must be an unsigned integer which 
zm specifies the number of bytes of space to reserve for 
machine language subroutines. The space is reserved in 
the topmost (highest) address space of the CP/M-86 
-ransient program area within the data segment. The 
beginning address of the reserved area is calculated by 
taking the constant specified in the SAVEMEM statement 
and subtracting it from the 16 bit address stored by 
= CP/M-86 at address 6 and 7 relative to the data segment. 


The expression must be of type string and may specify 
any valid unambiguous file name. The selected file is 
loaded into memory starting with the address calculated 
above. Records are read from the file until either an end 
of file is encountered or the next record to be read would 
over-write a location above the transient program area. 


If the constant specifies less than 128 bytes to be 
saved, nothing will be read in, but the space will still 
be reserved. If the expression is a null string, space is 
saved but no file is loaded. 


E If a main program has a SAVEMEM statement, any chained 
program that has a SAVEMEM statement must reserve the same 
amount of space. Each chained program may load a new 
machine language file, or it may use the file loaded by a 
previous program. The space reserved by the main program 
may not be reclaimed by a subsequent program. 


x NE. It is the programmers responsibility to insure that 
the machine language routines are assembied to execute at 
the proper address. In addition, it should be noted that 
the location at which a program is loaded is dependent 
upon the size of the CP/M-86 system being used. The CALL 
Statement may be used to access routines loaded by 
SAVEMEM. The CALL statement will load the data, code and 
extra segment registers to the base of the SAVEMEM area. 


Exampies: 
SAVEMEM 256, "SEARCH.COM" 


SAVEMEM 512, DRS+ "CHECK." + ASSYS (FN.CPM.SIZE?3) 
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Use of Integers 


Although all the machine language linkage statements 
will accept either real or integer values where an 
expression is required, it is much more efficient to use 
integer quantities. The size of the INT file will be 
reduced, and the program will execute faster. 


Since the largest positive CBASIC/86 integer is 
32767, the use of integer variables to address the upper 
32K of memory requires that the desired address be 
converted to an appropriate negative number. 
Remember that in 2's complement representation of binary 


numbers a -1 is 16 I's. This is most easily 
overcome by expressing addresses as either hexadecimal 
or binary constants. For instance, if a programmer 
desires to call an assembly language program at 43099 
decimal, the following instruction will accomplish 
this: 


CALL OC2990H 
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This chapter describes predefined functions provided 
by CBASIC/86. Predefined functions are used to build 
expressions as explained in section L When a 
predefined function has arguments, the arguments may be 
any valid expression which evaluates to the correct type, 
either numeric or string. 


In general, when a numeric expression is required, real 
and integer arguments may be used interchangeably. 
However, efficiency is improved by using expressions as 
arguments that do not require conversion. In the definitions 
below, string arguments are represented by AS, BS, etc, 
integers by I$, J$ etc, and real values by X, Y, etc. 

Some predefined functions are discussed in Chapters 5 
and 6. 


Y «d Numeric Functions 


The following functions return numeric values. 
Arguments, when required, may be any expression that 
evaluates to either a floating point or integer number. 


FRE 
FRE returns the number of bytes of unused space 
de in the free storage area. The value returned is a 
floating point number. 
X=FRE 
IF FRE < 500.0 THEN GOSUB 10 REM PRINT WARNING 
ABS (X) 


ABS returns a value that is the absolute value of 
the argument X. If X is greater than or equal to 
zero the returned value is X, otherwise the returned 


value is -X. 
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The value returned by ABS is a floating point | 


number. If X is a string an error occurs. If X is 
— an. integer, it is first converted to a floating point 
numoer. 


DISTANCE = ABS(START-FPINISH) 


IF ABS(DELTA.X) <= LIM THEN STOP 


INT(X) 


INT returns the integer part of the argument X. 
The fractional part is truncated. 


The value returned is a floating point number. 
If X is a string expression, an error occurs. If X 
LS BR integer, it is first converted to a real 


T - 
Ya 


“IME=INT (MINUTES )+INT (SECONDS) 


IF (X/2)-INT(X/2)20 THEN PRINT Y 
Ñ "EVEN" ELSE PRINT "ODD" 


INT$ (X) 
INT$ converts the argument X to an integer value. 
Df X is 4 string, an error will occur. If X is an 
LHZ aT, it is first converted to a real value, and 
the 


2m it is converted back to an integer. 
33 = INTS(REC.NO) 


WIDTHS = DIMEN.1% + INT$(DIMEN.2) 


FLOAT (I3~ 
LSAT converts the argument I$ to a real value. 
LZ SS is a string, an error occurs. If I% 18 teal, 
it ls first converted to an integer, and then it is 


commented pack to a real number. 
AMOUNT = FLOAT( COSTS) 


POSITION = SIN(PLOAT(ANG3) * OFFSET 


© 
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RND 

RND generates a uniformly distributed random 
number between 6 and 1. The value returned is a 
real number. 

To avoid identical sequences of random numbers 
each time a program is executed, the RANDOMIZE 
statement must be used to seed the random number 
generator. | 

DIESSINT$(RND*6.)-41 
IF RND > .5 THEN ^ 
HEADS$ = TRUE? Y 
ELSE \ 
TAILS$ = TRUES — 
SGN(X) 

SGN returns an integer value that represents the 
algebraic sign of the argument. It will return -l Le 
X is negative, 8 if X is zero, and +1 if X is greater 
than zero. 

X may be either integer or real. Integer values 
of X are converted to real numbers. I= X is a 
string, an error occurs. SGN always returns an 
integer. 

IF SGN(BALANCE) <> Ø THEN \ 
OUTSTANDINGBALS = TRUES 
IF SGN(BALANCE) = -1 THEN A 
OVERDRAWN3 = TRUE? 
ATN(X) 


ATN returns the arctangent of X. Using simple 
ideniities, other inverse trigonometric functions may 
be computed from the arctangent. The argument is 
expressed in radians. 


The value returned is real. If X is an integer, 
it is first converted to a real number. 


X = ATN( RADIANS) 
TEMPERATURE = K + N(L$)/ATN(X) 


ASIN ATN(X/(SQR(1.-X*X))) 


PI/2. - ATN(X/SQR(1-X*X)) 


ACOS 


Q 
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cos (Xx) 
COS returns the cosine of X. The argument X is 
expressed in radians. 


B The value returned is real. If X is an integer, 
it is first converted to a real value. 


IF COS(ANGLE) = 4.9 THEN VERTICALS = TRUE 


PRINT CONSTANT * COS(ROTATION) 


EXP (X) 


EXP returns the value of the irrational constant 
"a" raised to the power given by X. 


The value returned is real. If X is an integer, 
it is first converted to a real number. 


Y a A Y EXP(BX3) 
E=EXP(1) REM CONSTANT E = 2.7182..... 
LOG(X) 


The natural or Naperian logarithm of the argument 
X is returned by LOG. 


The value returned is real. I£ X is an integer, 
it is first converted to a real number. 


BASE.TEN.LOG = LOG(X)/LOG(19) 


PRINT "LOG OF X IS "; LOG(X) 


SIN(X) 


SIN returns the sine of the X. The argument is 
expressed in radians. 


The value returned is real. I X is an integer, 
it is first converted to a real number. 


FACTOR(Z) = SIN(A - 8/C) 


IF SIN(ANGLE/(2.0 * PI)) = 9.0 THEN \ 
PRINT "HORIZONTAL" 


mt 
E pN 
( i 
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SQR(X) 


SQR returns the square root of the X. LZ X is 
negative, a warning message is printed, and the 
square root of the absolute value of the argument j 


is 
returned. 
The value returned is real. I£ X is an integer, 
it is first converted to a real number. 
HYPOT = SQR((SIDE1”"2.8)+(SIDE2”"2.8)) 
PRINT USING ^ 
"THE SQR ROOT OF X IS: ####.##"; SOR(X) 
TAN(X) 
TAN returns the tangent of the argument X. X is 
expressed in radians. 
The value returned is real. If X is an integer 


it is first converted to a real number. 
POWER.FACTOR = TAN(PHASE.ANGLE) 


QUIRK = TAN(X - 3.8 * COS(Y)) 


String Functions 


ASC(AS) 


ASC returns the ASCII numeric value (in decimal) 
of the first character of the string argument. LE 


the length of AS is zero (null string), a runtime 
error will occur. | 


The value returned is an integer. If the 
argument is numeric, an error will occur. 


IF ASC(DIGITS}>47 AND ASC(DIGITS):<58 THEN X 
PRINT "VALID DIGIT" 


OUT TAPE.PORT$, ASC("*") 


CHRS (13) 


CHRS returns a one character string consisting of 
the character whose ASCII equivalent is 1%. CHRS 
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can be used to send control characters to an output . 
device. For instance, the statement "PRINT CHRS(190)" 
will output a line feed to the console. 


The value returned is a string. I-I% is real, 
it is first converted to an integer value. 


IF CHRS(INP(IN.PORT$)) = "A" THEN GOSUB 149 


PRINT CHRS(BELL$) REM ring the bell! 


LEFTS(A$,I%) 


LEFTS returns a string consisting of the first I$ 
characters of Af. If I$ is greater than the length 
of AS, the entire string will be returned. If I$ is 
zero, a null string will be returned; if 13 is 
negative, a runtime error will occur. 


AS must be a tring; otherwise an error will 
occur. 1% should be numeric. If I% is real, it will 
first be converted to an integer. If I% is a string, 
an error will occur. 


PRINT LEFTS (INPUT. DATAS, 25) 


IF LEFTS(INS,1) = "Y" THEN GOSUB 400 


LEN{ AS ) 


LEN returns the length of AS. Zero is returned 
if AS is a null string. 


The value returned by LEN is an integer. An 
error occurs if the argument is numeric. 


IF LEN(TEMPORARYS) > 25 THEN Y 
TOO.LONG$ = TRUE 


TOR INDEX% = 1 TO LEN(OBJECTS) 
NUM3 (INDEX%) = ASC(MIDS (OBJECTS, INDEX3,1)) 
NEXT INDEX$ 


UCASES (A$) 


UCASES returns a string in which the lower case 
characters in AS have been translated to uppercase. 
Other characters are not altered. AS remains 
unchanged unless AS is set equal to UCASES (AS). 


an. 
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The value returned by UCASES is a string. An 
error occurs if AS is numeric. 


IF UCASES(ANSS) = "YES" THEN V 
RETURN \ 
ELSE STOP 


NAMES = UCASES (NAMES ) 


MATCH(AS,BS,I$) 


MATCH returns the position Or the first 
occurrence of AS in BS starting with the character 
position given by I$. A zero will be returned if no 
match is found. The following pattern matching 
features are available: 


1) A pound sign ($) will match any digit 
(8-9). 


2) An exclamation mark (!) will match any 
upper or lower case letter. 


3) A question mark (?) will match any 
character. 
4) A backslash (1) character serves as an 


escape character to indicate the character 
that follows does not have special meaning. 
For instance a question mark signifies that 
any character is a match unless preceeded by 
a backslash. 


AS and BS must be strings. An error will occur 
if either of these arguments are numeric. If 1% is 
real, it will first be converted to an integer; if I$ 
is a string, an error will occur. If I$ is negative 
or zero, a runtime error will occur. When I$ is 
greater than the length of BS, zero is returned. Le 
BS is a null string a Y is always returned. If BS is 
not null, but A$ is null, à 1 wild be returned. 
Examples: 


MATCH("is","Now is the",1) returns 5 
MATCH(" 2£","October 8, 1976",1) returns 12 
MATCH("a?","character",4) returns 5 
MATCH("X2","123£45",1) returns 4 


MATCH("ABCD","ABC",1) returns Y 
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Note that the third example returns a 5 instead : 
of a 3 because the starting position for the match is 
position 4. In example four the backslash causes the 
pound sign to match only another pound sign. 
Without the backslash a 1 would be returned. 


The next example is a more complicated statement 
using the backslash: 


MATCH ("\41\\\2?","181\722",1) returns 2 


The following program may be used to experiment 
with the match function. 


TRUES = -1 

FALSE = Y 

editS = " The number of occurrences is E E 
WHILE TRUE 


INPUT "enter object string" : LINE objects 
INPUT "enter argument string" ; LINE arg$ 
GOSUB 629 l 
PRINT USING edit$: occurrences 

WEND 

629 rem----- count occurrences---------- 


location’ = 1 

occurrences = 9 

WHILE TRUES 
location$ = MATCH(argS,objectS, Llocation$ ) 
IF location$ = Y THEN RETURN 
occurrences = occurrence + 1 
Location$ = Locations + 1l 

WEND 

END 


MIDS (AS,I%,J3) 


MIDS returns a tring consisting of the J% 


characters of AS starting at the I$ character. If 15 
is greater than the length of AS, a null string is 
returned. I£ J% is greater than the length of as, 


all the characters from 1% to the end of AS are 
returned. An error occurs if either I% or J% is 
negative. A runtime error also occurs if I$ is zero. 
A zero value of J% will return a null string. 


AS must be a string expression; otherwise an 
error will occur. I% and J must be numeric. I£ 13 
or J% are real, they will first be converted to 


integers; if either 13 or J$ are strings, an error 


will occur. 
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DIGITS = MIDS(OBJECTS,POS%,1) 


DAYS = MIDS ({ "MONTUEWEDTHUFRISATSUN" , DAY$*3-2, 3) 


RIGHTS (AS,I%) 


RIGHTS returns a string consisting of the 1% 
rightmost characters of A5. If I$ is negative, a 
runtime error occurs; if I$ is greater than the 
length of AS, the entire string is returned. If I$ 
is Zero, & null string is returned. 


AS must evaluate to a string; otherwise an error 
will occur. I$ must be numeric. If I$ is real, it 
will first be converted to an integer; if 1% is a 
string, an error will occur. 


IF RIGHTS(ACCOUNT.NOS,1) = "Ø" THEN \ 
TITLE.ACCT% = TRUES 


NAMES = RIGHTS (NAMES; LEN(NAMES )-LEN( FIRST .NAMES ) ) 


STRS (X) 


STRS returns the character string which 
represents the value of the number X. 


If X is a string, an error will occur. If X is 
an integer, it will be converted to a real value. 


PRINT STRS(NUMBER) 
IF LEN(STRS(VALUE))>5 THEN EDS="S##F477" 
VAL(AS) 

VAL converts A$ into a floating point number. 
Conversion continues until a character is 
encountered that is not part of a valid number or 
until the end of the string is encountered. 

If AS is a null string or the first  non-blank 
character of AS is not a+, -, Or digit, zero is 


returned. 


AS must be a string; otherwise an error will 
occur. 


PRINT ARRAYS(VAL(IN.STRINGS)) 


ON VAL(PROG.SEL$) GOSUB 18, 29, 30, 49, 50 


(8) 
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COMMANDS 


COMMANDS returns a string which contains the 
CP/M-86 command line modified as described below. 


The name of the program being executed is not 
included in the string returned by COMMANDS. In 
addition, if the TRACE option is used with CRUNS86, 
the word  TRACE and associated line numbers, if 
present, will not be included. If any of the 
following commands are used to execute a CBASIC/86 
intermediate file: 


CRUN86 PAYROLL NOCHECKS TOTALS 
CRUN86 PAYROLL TRACE NOCHECKS TOTALS 


the COMMANDS function will return the following 
string: 


NOCHECKS TOTALS 


Leading blanks are removed. A maximum of 58 
characters will be retained by the COMMANDS function. 
All alphabetic characters are converted to upper 
case. 


The COMMANDS function may be used at anytime in a 
program, as many times as desired, and by any program 
which is subsequently loaded by a CHAIN Statement. 


SADD( AS) 


SADD returns the address of the string assigned 
to the argument AS. The first byte is the length Of 
the string followed by the characters in the string. 
The length is stored as an unsigned binary integer. 


Therefore, if the string is "TOTAL", the SADD 
function would return the address of a byte 
containing a binary 5. The next byte would be an 
ASCII "T", etc. 


The value returned by SADD is an integer. If AS 
is not a string, an error occurs. When the parameter 
evaluates to a null string, a zero may be returned. 


The SADD function, in conjunction with PEEK anc 


POKE, may be used to pass a string to an assembly 
language routine for processing. 


© 


me 
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The following statements will put the address of 
STRINGS into the address stored in PARM.LOC3: 


POKE PARM.LOC$,SADD(STRINGS) AND OFFH 
POKE PARM.LOC%+1,SADD(STRINGS )/256 


VARPTR («variable») 


VARPTR returns the permanent storage location 
assigned to the «variable» by the runtime monitor. 


In the case of an unsubscripted numeric quantity, 
this is the actual location of the variable in 
question. For string variables, the value returned 
is- the address of a sixteen-bit pointer to the 
referenced string. Because Sor ings are dynamically 
allocated the actual location of the string may vary, 
but the value returned by VARPTR remains unchanged 
Guring execution of a program. If the variable is in 
common, then the location returned by VARPTR will 
remain unchanged after chaining. " 


If the «variable» is subscripted, the value 
returned by VARPTR is the address of a pointer to the 
array dope vector in the free storage area. The 
array follows the dope vector. The first byte of the 
dope vector is the number of dimensions. Following 
this single byte are n-1 (n is the number of 
dimensions) l6 bit offsets into the array. The final 
uh bit quantity in the dope vector is the number of 

ries in the array. The array follows in row major 
ahi 


Disk Functions 


RENAME(AS,B$) 


RENAME is a function that changes the name of the 
file specified by BS to the name given by AS. 
Renaming a file to a name that already exists 
produces a runtime error. 


The RENAME predefined function returns an integer 


value. true (-1) is returned if the rename is 
successful and a false (8) is returned in cases where 
the rename fails. For instance false is returned if 


BS does not exist. 


9 
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A file must be closed before it is renamed; 
otherwise, when CBASIC/86 automatically closes files 
at the end of processing, it will attempt to close 
the renamed file under the name with which it was 
opened. This will cause a runtime error because the 
original file name will no longer exist in the 
CP/M-86 file directory. 


Both arguments must be of type string. If either 
AS or BS is numeric an error will occur. 


The RENAME rfugction will allow a 
CBASIC/86 programmer to use the following backup 
convention: 


L. The output file is opened with a filetype 
of 'S$$' indicating that it is temporary. 


2. Any file with the same name as the output 
file but with a type 'BAK' is deleted. 


3. Data is written to the temporary file as 
the program does its processing. 


4. At the end of processing, the program 
renames any file with the same filename and 
filetype as the output file to the same 
filename but with the filetype ‘BAK’. 


5. The program renames the temporary output 
file to the proper name and type. 


Examples: 
DUMMY3 = RENAME ("PAYROLL .MST", "PAYROLL.S$S$") 


I? RENAME(NEWFILES,OLDFILES) THEN RETURN 


SIZE(AS) 

SIZE returns the size in blocks of tne file 
specified by AS. If the file is empty or does not 
exist, zero is returned. AS may be any 
CP/M-86 ambiguous file name. Digital Research 


publication "An Introduction to CP/M Features and 
Facilities" explains ambiguous file names. 


The argument must be a string expression. A 
numeric value will result in an error. Te SIZE 
function returns an integer. 


N 
* 
1 


K 
-— " 
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Examples: 
SIZE( "NAMES. BAK") 
SIZE(COMPANYS + DEPTS + ".NEW") 
SIZE("B:ST?RTR?K.*") 
SIZE( ts?) 
SIZE("*.BAS") 
The SIZE function returns the number of blocks of 


diskette space consumed by the file or files 
referred to by the argument. When the operating 


system allocates diskette space to a file, it does so 


in one block increments. A file of 1 character will 
occupy a full block of space. This means the SIZE 
function returns the amount of space that has been 
reserved by the file rather than the size of the data 
that is in the file. 


This function is useful in a program that must 
duplicate or construct a file on disk. If the 
program knows that it will create a file of a given 
size, possibly dependent on the size of its input 
File, it can first determine whether or not there is 
sufficient free space on the disk before building the 
new ‘file. For example, consider a program which 
reads a file named "INPUT" from drive A, processes 
the data, and then writes a file named “OUTPUT” to 
drive B. Assume the size of "OUTPUT" will be 125% of 
"INPUT". The following routine will insure that 
space is available on disk B prior to processing. 


719 rem------test for enough room------ 
size.of.output = 1.25 * size("A: INPUT") 
free.blocks% = 241 - size("B:*.*") 
if free.space& < size.of.output$ then \ 

enough.room$ = FALSE? V 
else enough.room$ = TRUE 
return 
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USER DEFINED FUNCTIONS 


Functions or subprograms are defined by a programmer when 
the same computation is to be performed in a number of 
Locations within a program. The required routine is coded as 
a function and then referenced or called from any location 
within the program. The function may be passed values or 
parameters to be used in each invocation. 


All CBASIC/86 functions return a value. Thus, the 
function. 153, in effect, a reference to a routine which 
results in a value, either string or numeric. CBASIC/86 


provides two types of functions, single statement and multiple 
statement. 


A function must be defined prior to any reference to the 
function. That is, the compiler must encounter the function 
definition prior to any reference to the function. 


B. Function Names 


The name of a user defined function must begin with 
'FN' followed by any combination of numbers, letters and 
periods. A function name may be any length. Only the 
first 31 characters are considered when determining the 
uniqueness of a function name. No spaces are allowed 
between the FN and the remainder of the name. 


The type of the function name determines the type of 
the value returned by the function. If the function name 
ends with a dollar sign, a string is returned; if the name 


ends in a percent sign, an integer is returned. 
Otherwise, a real value is returned. A function name is 
used to both define a function and to reference a 


function. 

Examples of function names: 
FN.THIS.IS.A.VALID.FUNCTION 
FN3.1416% 

FN.FUNCTIONS 
FN.TIMES 


FN.TRUNCATES 
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Function Definitions 


Single statement functions are defined with the DEF 
statement whose general form is: 


(«stmt number>]} DEF «function name> 
[(«dummy arg list>)] = «expression» 


The type of the expression must match the type of the 
function name. There mav be none, or any number of dummy 
arguments, and they may be used ‘freely within the 
expression. A dummy argument is either a string or 
numeric variable. When there is more than one argument, 
they are separated by commas. The type of the dummy 
arguments is independent of the function type. | 


The dummy arguments are local to: the function 
definition. Variables of the same name, in other 
portions of the program, remain unaffected by the use of 
the function. Variables, constants, and other functions 


may also be referenced in the expression. Recursive calls 
are not permitted. 


Examples: 
DEF FN25 = RND*25.8 
DEF PN.LEFT.JUSTIFYS(AS,LEN$)-LEFTS(AS-BLNKSS,LENS) 


DEP PN.ZYPOT(SIDELl,SIDE2)-2 \ 
SOR((SIDE1*STIDE1) + (SIDE2*SIDE2)) 


DEF FN.FUEL.USE(MILES)=SPEED*FN.CONST*MILES+OVERHEAD 

DEF FN.EOJ$=FLAG1% OR FLAG2$ OR FLAG3$ OR FLAG4$ 

DEF FN.INPUT$(PORT$)ZINP(PORT$).,AND MASK%( PORTS) 
A multiple statement function consists of a multiple 
statement function definition, a function body and a FEND 
statement. Multiple statement function definitions use 


the following form of the DEF statement: 


( «stmt number» ] DEP «function name> 
L L «dummy arg list» )] 


The dummy argument list is identical to that described 


for single statement functions. The parameters are local 
to the entire body of the function. 


© 
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The body of a multiple statement function consists  o- 
any number of CBASIC/86 statements except that DEF and 
COMMON statements may not appear in the body of a 
function. A multiple statement function may reference 
itself within the body of the function but, all local 
variables retain their most recent definition when 
returning from the function. 


If a DIM statement appears in a multiple statement 


funetion, a new array is allocated on each execution of 
the DIM statement. The previous data stored in the array 
is lost. Note that the array is global to the entire 
program. 


A value is returned from a multiple statement function 
by having the name of the function appear on the left hand 
side of an assignment statement. Any number of such 
assignments may appear in the body of a function. The 
most recent assignment is the value returned by the 
function. 


The function returns when a return statement iis 


executed. Any number of return statements may be present 
in the body of a multiple statement function. If no 
assignment is made to the function name, the value 


returned is the last value assigned to the function name. 
1£ no value has been assigned, zero is returned. 


The body of a multiple statement function is 
terminated by a FEND statement. The general form of an 
FEND statement is: 


[ «stmt number» ] FEND 


Execution of a FEND statement implies that a multiple 
statement function was exited without executing a RETURN 
Statement. In this case a runtime error occurs. 


Examples: 


DEF FN.READ.INPUT(INPUT.NO$) 
READ Z INPUT.NO$; CUSTNO$, AMOUNT 
RETURN 

FEND 


DEF FN.COUNTS (INDEX1$) 
COUNTS = Ø 
FOR I$ = 1 TO INDEXI1$ 
COUNTS = COUNTS + ARRAY(I3%) 
NEXT I% 
FN.COUNT$ = COUNT? 
RETURN 
FEND 
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8.3 


Function References 


A user defined function may be referenced in any 
expression. The same number of parameters must be 
gpecified in the call as are defined in the DEF statement. 
Parameters may be any valid expression, but they must 
match the type of those specified in the definition. 
This includes integer and real parameters. Dt the 
function definition requires an integer parameter, the 
value passed to the function must be an integer. The same 
rule applies to real and string parameters. 


A function must be defined prior to a reference to the 
TUNES 


Prior to calling the function, the current value of 
each expression is substituted for the dummy variable in 
the definition. 


Examples: 
PRINT FN.A(FN.B(X)) 


IF FN. LENS (“INPUT DATA",XS,Q) < LIMITS THEN 
GOSUB 199 


WHILE FN.ALTITUDE(CURR.ALTS) > MINIMUM.SAPE 
| CURR.ALTS=INP(ALT. PORTS ) 
WEND 


LJ 
tO 
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9. FORMATTED PRINTING 
39.1 General 


This chapter describes the PRINT USING statement. 
PRINT USING allows specification of printed output using a 
format string. A format string is composed of data fields 
and literal data. Data fields may be numeric or string; 
any character in the format string that is not part of a 
data field is a literal character. The general form of a 
PRINT USING statement is: 


[<stmt number>] PRINT USING «format string? ; 
[<file reference>) «expression list»? 


A format string may be any string expression. This allows 
the format to be determined during program execution. An 
error occurs if the format string is numeric; a runtime 
error occurs if the expression evaluates to a null 
string. 


The expression list consists of expressions separated 
by commas or semicolons. The comma does not cause 
automatic tabbing as it does with the unformatted print. 
Each expression in the list is matched with a data field 
in the format string. If there are more expressions than 
fields in the format string, the format string is reused 
Starting at the beginning of the string. 


While searching the format string for a data field, 
the type of the next expression in the list, either String 
or numeric, determines what data field is used. For 

instance, if while outputting a string a numeric data 
field is encountered, the characters that make up the 
numeric data field will be treated as literal data. rs 
there is no data field within the format string £ the 
type required, an error will occur. 


A PRINT USING statement without the file reference 
causes an output line to be written to either the console 
or the line printer. The console is selected unless an 
LPRINTER statement is in effect. If the file reference is 
present, the line is composed as 1t would be if the output 
was being printed ona list device. The entire line is 
then written as a record in the selected file. Chapter 
19 discusses in more detail the use of PRINT USING with 
disk files. 


a } 
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» String Character Field 


A one character string data field is specified with 
an exclamation point. The first character of the next 
expression in the print statement list is output. For 
example: 

F.NAMES ="Lynn": M.NAMES = "Marion": L.NAM$S= "Kobi" 
PRINT USING “Il. !. &"; F.NAMES,M.NAMES,L.NAMS 


would output: 
L. M. Kobi 


In this example, the period is treated as literal data. 
Since there are two expressions in the list, the format 
string is reused when processing the second expression. 


Fixed Length String Fields 


A fixed Length string data field of more than ons 
position is specified by a pair of slashes (/) separated 
by zero or more characters. The width of the field is 
equal to the number of characters between the slashes, 
plus two. Any character may be placed between the 
slashes; these fill characters are ignored. 


A string expression from the print list is left 
justified in the fixed field, and, if necessary, padded on 
the right with blanks. A string, which is longer than the 
data field, is truncated on the right. For example: 


FORLS = "THE PART REQUIRED IS DNI Suge ES T 


PART.DESCRPS = "GLOBE VALVE, ANGLE" 
PRINT USING FOR1$; PART.DESCRPS 


will output: 
THE PART REQUIRED IS GLOBE VALVE, ANG 
The use of the periods and numbers between the slashes 


makes it easy to verify that the data field is 16 
characters long. They have have no effect on the output. 


Variable Length String Fields 


A variable length string field is specified with an 
ampersand  (&). This results in a string being output 
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exactly as it is defined. 
For example: 


COMPANYS = “SMITH INC." i 
PRINT USING "& &"; "THIS REPORT IS FOR" COMPANYS 


will output: 
THIS REPORT IS FOR SMITH INC. 


A string may be right justified within a fixed field 
using the variable string field. The following routine 
shows how this would be done: 


FLD.S$ = 20 

BLKS = 1H 11 

PHONES = "213-355-1963" 

PRINT USING "#&"; RIGHTS (BLKS + PHONES, FLD.S%) 


which would output: 
= 213-355-1063 


In the above example, since the print list contains only a 
string expression, the pound sign is used as a literal 
character. A pound sign may also indicate a numeric data 
sieláa. This is explained in the next section. 


Numeric Data Fields 


A numeric data field is specified by a pound sign (2) 
to indicate each digit required in the resulting number. 
One decimal point may also be included in the field. 
Values are rounded to fit the data field. Leading zeros 

re replaced with blanks. When the number is negative, 4a 
minus sign is printed to the left of the most significant 
digit. A single zero is printed on the left of the 
decimal point if the number is less than l and a position 
is provided in the data field. The following example 
illustrates the use of numeric data fields. 


X = 123.7546 
Y = -21.0 | 
PORS = "#7. tF ftt. EFF" 


dk 
PRINT USING FORS; X, X, X 
PRINT USING FORS; Y, Y, Y 


Execution of the above program produces the following 
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printout: 


123.7546 123.8 124 
-21.9099 -21.9 -21 


Numbers may be printed in exponential format by 
appending one or more uparrows. (^) o the and öf tne 


numeric data field. For example, the following program 
segment: 

X = 12.345 

PRINT USING "$. #40 "e Ayp SA 


would output: 
1.2358 91 -.123E 902 


The exponent is adjusted so that all positions represented 
by the pound signs are used. For instance: 


PRINT USING "324.24"; 17.987 


results in: 
179.87E-d1 


Four positions are reserved for the exponent regardless 
of the number of uparrows used in the field. 


If one or more commas appear embedded within a numeric 
data field, the number is printed with commas between 
groups of three digits before the decimal point. For 


example: 

PRINT USING “37,477 ". 189, 19000, 19090900 
DEXHES! 

199 1,009 13,900 


Fach comma which appears in the cata field is included 
in the width of the field. Thus, even though only one 
comma is required to obtain embedded commas in the output, 
it is clearer to place commas in the data field in the 
positions they will appear on the output. For instance, 
the following data fields will produce the same results, 
except that the width of tne first field allows only 9 
digits to be output. Using the second field, 19 digits 
may be output. 


aL 22452225Zzi 
"oet e TPT FT 
x o3 o o £zi 
€, TTP? TTY? R 
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If the exponent option is used, commas are not 
printed; when commas occur in the field, they are treated 
as pound signs. 


Asterisk fill of a numeric data field is accomplished 
Dy appending two asterisks to the beginning of the data 
field. A floating dollar sign may be obtained by 
appending two dollar signs to .the field in a similar 
manner. Exponential format may not be used with either 
asterisk fill or the floating dollar sign. The pair of 
asterisks or dollar signs are included in the count of 
digit positions available for the field and they appear in 
she output only if there is sufficient space for the 
number and the asterisk or dollar sign. The dollar sign 
is suppressed if the value printed is negative. For 
example: 


COST = 8742937.56 
PRINT USING “**#4, fetisi 22 "; COST, -COST 
PRINT USING "SS#s, 222227 .#2 "; COST, -COS7 


prints: 


**3,742,937.56 *-8,742,937.56 
$8,742,937.56 -8,742,937.56 


A number may be output with a trailing sign instead of 
the leading sign if the last character in the data field 


is a minus sign. When the number is positive, a blank 
replaces the minus sign in the printed result. POP 
example: 


PRINT USING "z$é- ERC“ ">: 10, 10, -13, -1g 
will output: 
19 108E-91 18- 100E-21- 

If a minus sign is the first character in a numeric 
data field, the sign position is fixed as the next output 
position. When the number being printed is positive, a 
blank is output; otherwise a minus sign is printed. The 
following example demonstrates this feature. 

PRINT USING "-s£**$ "y 10, -1g 
which outputs: 


19 - 19 
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Any time a number will not fit within a numeric data 
Field without truncating digits before the decimal point, 
a percent sign is printed followed by the number in the 
standard format. 


For instance: 


Xx 1392.71 i 
PRINT USING "$$.5 AR. AU X,X 


will output: 


*- 132.7L 132.7 


Escape Characters 


At times it may be desired to include a character as 
literal data which, following the above rules, would be 
part of a data field. This can be accomplished by 
"escaping" the character. A backslash (NX) preceding any 
character causes the next character after the packslasn to 
be treated as a literal character. This allows, for 
instance, a pound sign to precede a number as shown in the 
folucviag example: 


ITEM.NUMBER = 31 
PRINT USING "THE ITEM NUMBER IS \#22"; ITEM.NUMBER 


which outputs: 

THE ITEM NUMBER IS 3731 
An escape character following an escape character causes 4 
backslash to be output as a literal character. If an 


escape character is the last character in a format 
string, a runtime error occurs. 
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FILES 
How CP/M-86 Maintains Files 
CBASIC/86 uses the CP/M-B6 file accessing routines to 
store and retrieve data from diskette files. THIS 
section will provide a brief introduction to the tile 
organization employed by CP/M-86. More detailed 


information is available in the CP/M-86 manual. 


CP/M-86 maintains a directory of File Control 
Blocks (FCB) on each diskette. The FCB contains the file 
name, number of records in the file, and references to 
physical locations occupied by the data on the 
diskette. CP/M-86 interfaces with the disk hardware 
through primitives that are used by transient programs, 
including  CBASIC/86, to access files on disk. The 
primitives allow a file to be created, opened, closed, 
read or written. All data is processed in 128 byte 
segments. However, CBASIC/86 maintains all necessary 
pointers and buffers data so the user is not restricted 
to 128 byte records. All CBASIC/86 file accesses are 
performed using CP/M-86 system calls. 


The CBASIC/86 statements used to access diskett 
files will now be discussed. Three statements are 
used to activate a file, OPEN, CREATE, and FILE. Once a 
tile has been activated, READ and PRINT statements may 
access and write files respectively. An active file 
may be deactivated with either a CLOSE or DELETE 
statement. Chapter 11 provides additional information on 
programming with files. 


OPEN Statement 


The OPEN statement activates an existing file for 
reading or updating. The general form of an OPEN 
statement is: | 


[*stmt number>] OPEN «expression» [RECL «expression»] 
AS «expression» [BUFF «expression» RECS <expression> ] 
(, «expression» [RECL <expression>] 
AS «expression» [BUFF «expression» RECS «expression» Jj! 
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The first expression represents the name of a file on 


diskette. The name may contain an optional drive 
reference. If the drive reference 1s not present, the 
currently logged drive is used. The file name must 


conform to the CP/M-86 format for unambiguous file 
names. Lower case letters used in file names are 
converted to upper case. The expression must be of type 
string; an error occurs LE Lt ls numeric. The 
following examples show valid file names: 


ACCOUNT.MST 
CBAS36 . CMD 
B: INVENTORY. BAK 


The third example shows a reference to a file on drive B. 


The directory on the selected drive is searched and 
the named file is opened. If the file is not found in the 
directory, it is treated as if an end of file had been 
encountered during a read. See the IF END statement for 
information on end of file processing. When a drive 
reference is present, It is the programmer's 
responsibility to insure such a drive is available on the 
system being used. 


The AS expression assigns an identification number to 
the file being opened. This value is used in future 
references to the file. Each active file must have a 
unique number assigned to it. £ the expression 1s not 
between l and 28, a runtime error occurs. The expression 
must be numeric: real values are converted to integer. A 
string value will cause an error. 


When the optional RECL expression is present, the 
file will consist of fixed Length records. A runtime 
error occurs if the record length is negative or zero. A 
file may be accessed randomly or sequentially when a 
record length has been specified: otherwise only 
sequential access is allowed. The RECL expression must be 
numeric: real values are converted to integer. A string 
value will cause an error. 


The BUFF and RECS expressions are optional. If used, 
they both must be present. The expression following BUFF 
specifies the number of disk sectors from the selected 
file to maintain in memory at one time. I the expression 
is omitted, a value of one is assumed. The expression 
following RECS must be present when the BUFF expression is 
used, but the value of the expression is ignored. For 
possible future use, the value should be the size of a 
disk sector. This is normally 128 bytes. 


(67) 


x= 
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If random access is to be used with a file, the BUFF 
expression, if present, must evaluate to 1: otherwise a 
runtime error will occur. 


Both expressions must be numeric; a string value will 


cause an error. Real values are converted to integers. 
Twenty files may be active at one time. Buffer space 


for files is allocated dynamically. Therefore storage 
space may be conserved by opening files as they are 
required and closing them when they are no longer needec. 
Examples: 

555 OPEN "TRANS.FIL" AS 9 

OPEN FILE.NAMES AS FILE.NO% BUFF 26 RECS 128 


OPEN WORK. FILE.NAMES (CURRENT.FILES) ^ 
RECL WORK.LENGTH$ AS CURRENT.FILES BUFF BS% RECS 128 


CLOSE Statement 

The CLOSE statement deactivates an OPEN file; the file 
is no longer available for input or output operations. 
The general form of a CLOSE statement is: 


[«stmt number>] CLOSE «expression? L. «expression»! 


Each expression refers to the identification number 


of an active file. The file is closed, the file number is 
released, and all buffer space used by the file is 
deallocated. Before the file may be referenced again it 
must be reopened. An error will occur if the specified 


file has not previously been activated with a CREATE, OPEN 
or FILE statement. 


1£ an IP END statement is currently associated with 
the identification number for the file being closed, the 
IF END will no longer be in effect. 


All active files are automatically closed when a STOP 


statement is executed, or a control-Z is entered in 
response to an INPUT statement. Files are not closed if a 
control-C is entered from the console, or if a runtime 


error occurs. 


Each expression must be numeric in the range 1 to 20. 
Real values are converted to integers. A string value 


will result in an error. 
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Examples: 
8800 CLOSE FILE.NO$ 
CLOSE NEW.MASTER.FILES,OLD.MASTER.FILES,UPDATE.8123 


FOR X$ = 1 TO NO.OF.WORK.FILES$ 
CLOSE X$ 
NEXT X$ 


19.4 CREATE Statement 


The CREATE statement is identical to an OPEN 
statement except that a new file is created on the 
selacted drive. The general form of a CREATE statement 
is: 


[«stmt number>] CREATE «expression» [RECL «expression»] 
AS «expression» [BUFF «expression» RECS <axpression> ] 
(, «expression» [RECL <expression» ] i 
AS <expression> [BUFF <expression> RECS <expression>]) 


When a file with the same name is present, the 
existing file will be erased before the new file is 
created. 

The CREATE statement has no effect O 
statement which is currently in eff 
identification number assigned to the new file. 
Examples: 

1238 CREATE "NEW.FIL" AS 19 BUFF 4 RECS 128 
CREATE ACC.MASTERS RECL M.REC.LEN% AS ACC.PILE.NOS$ 


E "R:"+NAMES+"."+LEFTS (STRS (CURRENT .WORK$3), 3) 
\ AS CURRENT .WORK3 


3.5 DELETE Statement 


b 


The DELETE statement removes the referenced files 
from their respective directories. The general form 
of a DELETE statement is: 


(<stmt number>] DELETE <expression> L. <expression>} 
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Zach expression must be in the range of 1. to 29. LE 
the number is not currently assigned to an active file, a 
runtime error occurs. The expression must be numeric. 
Real values are converted to integer. A string value will 
result in an error. 


g? an IF END statement is currently associated with 
the ntification number for the file being deleted, the 
IF END prt. no longer be in effect. 


Al 


DELETE 1 


DELETE FILE.NO%, OUTPUT.FILE.NOS 


WHILE I$ < NO.OF.WORKFILES$ 
f$ - 13 4 ] 
DELETE I$ | 


I 


ta) 


END Statement 


The IF END statement allows the programmer to process 
an end of file condition on an active file. The general 
form of the IF END statement is: 


[«stmt number>] IF END > «expression» THEN «stmt number»? 


When an end of file is detected on a file, one of two 
actions will take place. If an IF END statement has been 
executed for the file, control is transferred to the 
statement labeled with the statement number following the 
TEEN. If no IF END statement has been executed, a runtime 
error occurs. 


The IF END statement must be the only statement on a 
line; it may not follow a colon nor be part of a statement 
list. 


Any number of IF END statements May appear in a 
program for a given file. The most recently executed IF 
END is the one that will be in effect. However, if a 
DELETE or CLOSE statement is executed, any IF END 
associated with the identification number is no longer 
effective. 


The expression must be numeric in the range 1 to 26. 
Real values are converted to integers. A string value 


will cause an error. 
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When a condition exists which results in the transfer 
of control to the statement associated with an IF END 
statement, the stack is restored to the condition that 
existed prior to the statement which caused activation of 
the IF END. Thus if the statement which resulted in 
transfer was in a subroutine, a return must be executed 
after processing the end of file condition. Examples: 


IF END $ 7 THEN 500 
IF END ¿ FILE.NO$ THEN 198.1 


An IF END statement may be executed prior to assigning 
the file number to a file. A subsequent OPEN on a ‘file 
that does not exist will cause execution to continue as if 
an end of file had been encountered. 


In the following example, if the file MASTER.DAT does 
not exist on drive B, control will be transferred to 
statement 500.5. After a successful OPEN, an end of file 
during a read will cause execution to continue with 
statement 500. 


END 8MASTER.FILE.NO$ THEN 399.5 
N "B:MASTER.DAT" AS MASTER.FILE.NO% BUFF 6 RECS 


t4 c Q n 
ny tu tg d 
00 14 


(Y 


ND # MASTER.FILE.NO$ THEN 599 


An IF END statement may also be used when writing to 
Sues In this case control is transferred to EM 
statement associated with the IF END when an atvempt is 
made to write to the file and there is no disk space 
available. Part of the record being created may have been 
written to the file. When using fixed files, the last 
record may be rewritten after additional space is treed. 


iD $ 


e FILE Statement 


(«stmt number>] FILE «variable» [(<expression>)] 
(, «variable» ((<expression>)]} 


A FILE statement opens a file if it is present on the 
referenced disk; otherwise a file with the specified name 
is created. The variable contains the name of the file to 


be accessed. As each file is activated, it is assigned 
“he next unused file number starting with l. If all 29 
numbers are already assigned, an error occurs. LE the 
expression enclosed in parentheses is present, the value 
of the expression is the record length. The record 
length must be numeric. Real values are converted to 
integers. A string value will cause an error. 


D 


xl 
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The variable must not be subscripted and it must be of 
type string. , It may not be a literal or an expression. 


Examples: 
FILE NAMES 


TILE FILE.NAMES(REC.LEN$} 


READ Statement 


There are four forms of the READ statement which 
access data from disk files. Each of the four statements 
will be discussed in turn, and then some general comments 
about reading from disk files will be made. The first two 
types of the READ statement access files in a manner 
analogous to using the INPUT statement to access data 
from the console. The last two forms are similar to the 
INPUT LINE statement. 


Tne general form of the sequential read is: 


[<stmt number>] READ $ <expression> ; <variable> 
{, «variable»! | 


The above READ statement reads sequentially from the 
file specified by the first expression. The file will be 
read, field by field, into the variables, until every 
variable has been assigned a value. Fields may be 
integer, floating point, or string values, and they are 
delimited by commas. 


The expression, which selects the file, must be 


numeric. Real values are converted to integer. A string 
value will cause an error. In addition, the value must 
refer to an active file. therwise, a runtime error 
Occurs. 

Examples: 


READ # 7; STRINGS, NUMBER 
READ $ FILE.MASTER$; NAMES, ADDRESSS,CITYS,STATES 


The general form of the next variation of the READ 
statement is: 


[«stmt number»] READ # «expression? , ‘expression? ; 
[<variable> {, <variable>}] 


QD 
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The second expression selects the record to be read. A 
random record specified by the second expression is read 
From the disk file specified by the first expression. 
The fields in the record are assigned to the variables in 
the variable list. An error occurs if there are more 
variables than fields in the record. To use this form of 
the read, the file must have been activated with the RECL 
option specified. | 


The second expression must be numeric. If the value 
is a string, an error will occur. Real values are 
converted to integers. The record number may not be zero; 


i£ it is, a runtime error will occur. The expression is 
-reated as a sixteen bit unsigned binary number. This 
allows record numbers in the range of 1 to 65,535. 


A random read with no variables specified will 


position the file to the selected record. A subsequent 
sequential read will access the selected record. 


READ 2 FILE.NO$,REC.COUNT$; NAMES, PAY, HOURS, \ 
TERM .OF . EMPLOY, SSNS 


The following two forms of the READ statement treat 
iles as lines of text. The general form of the 
sequential variant is: 


[<setmt number» 1 READ Z «expression? ; LINE <variable> 


This statement reads sequentially all data from the 


specified file until a carriage return followed by 4 line 
seed is encountered. All the data read up to, but not 
including, the carriage return and line feed is assigned 
to the single string variable specified in the READ LINE 
statement. T= the variable is not of type string, an 
error occurs. 


mha random variant of the READ LINE has the following 
general form: 


(«stmt number»] READ $ «expression? , «expression? ; 
LINE «variabile» 


The final variation of the READ statement reads the 
record specified by the second expression from the file 
specified by the first expression. The data is assigned > 
the string variable as described for the previous form 0 
the READ LINE statement. 


hO t 


® 
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The READ LINE statement permits  CBASIC/86 to 
access records containing ASCII data in any format 
on a line-by-line basis. For instance, any file created 
with a text editor could be read a line at a time. In the 
following example: 

READ # 12: LINE in.strings 


all characters in the next record will be read until a 
carriage return followed by a line feed is encountered. 


Additional examples follow: 
READ # 12 ; LINE NEXT.LINE.OF.TEXTS 


READ # INPUT.FILE$, RECORD$; LINE NEXT.ONES 


PRINT Statement 


There are four variations of the PRINT statement which 


output data onto disk files. Each of these will be 
discussed in this section. Both sequential and random 


files may be written using the following forms of the 
PRINT statement: | 


(«stmt number»] PRINT $ «expression» ; 
«expression» {, «expression»] 


[<stmt number>] PRINT # «expression» , 
«expression» ;«expression» {, «expression»] 

The first form of the PRINT statement outputs the 
next sequential record to the file specified by the first 
expression. Each of the expressions in the expression 
list will be written as a field separated by commas. 
String fields will be surrounded by quotation marks and 
the last field will be followed by a carriage return and a 
linefeed. 


The expression following the pound sign must be 
numeric. A real value will be converted to an integer. A 
string value will cause an error. In addition the value 
must refer to an active file; otherwise a runtime error 
will occur. 


The second form of the PRINT statement outputs a 
random record specified by the second expression to the 
disk file specified by the first expression. The same 
format as described above is used. The file must have 
been opened with a fixed record length. An error occurs 
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if there is insufficient space in the record for all the 
data. l 


The second expression must be numeric. If the value 
is a string, an error will occur. Real values are 
converted to integers. The record number may not be zero; 
if it is, a runtime error will occur. The expression is 
treated as a sixteen bit unsigned binary number. This 
allows record numbers in the range or l to 65,535. 


Examples: 
PRINT # 3; "JONES, BILL" 
PRINT £FILE.NO$; NAMES, ADDRS, SALARY 
PRINT $PAY$,EMPLNO$; EMPL.NM(EMPLNO$),HOURS(EMPLNO$) 
PRINT $ 10, 55; DATE 


Both forms of the PRINT statement discussed above 
produce files which may be read using the READ statement 
discussed in section 19.8. All values output to tne file 
are delimited with commas or a carriage return line feed 
pair. In addition all strings are enclosed in quotation 
marks. tf the data must be output in a specific format, 
such as when a report is being produced for later 
printing, ‘the PRINT USING statement may be used with disk 
files. This type of the PRINT statement takes on the 


following general forms: 


[<stmt number»] PRINT USING «expression? ; 
4 «expression» ; «expression» L. <expression> } 


(<stmt number>] PRINT USING «expression? ; 
$ «expression» , «expression» ; 
«expression» [, <expression> } 


These statements write data to ‘files using the 
formatted printing options specified in the expression 
following the USING. Formatting options are described in 
Chapter 9 and are the same as those for console output. 
The first form is for sequential access and the second is 
used with random access. Records are delimited with a 
carriage return followed by a linefeed. 


The expression following USING must be of type string. 


An error occurs if the expression 15 numeric. LE the 
string is a null string, 4 runtime error occurs. The 
the same 


expressions following the pound sign must follow 
rules as for unformatted printing to files. 


© 
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The PRINT USING statement with disk files gives tne 
programmer the same .extensive facilities for formatting 
data that the USING clause permits when printing to the 
console or list device. Numbers may be formatted with 
commas and decimal points; asterisks and dollar signs may 
be floated. Records containing embedded quotation marks 
or commas may also be written to a disk file with the 
PRINT USING statement. 


Por example: 


cents.wanted$ = TRUE? 
editl$ = "SS##,##8.#2" 
edit2S = "SSA, FRE" 
Lf cents.wanted& then \ 
edit$ = editlS V 
else editS = edit25$ 
print using "The ""&"" costs " + edits: \ 
$f£ile.no£$; productS,price 


tt 


If this procedure is executed, the result on file will 
De: 


The "X-RAY MACHINE" costs $91,327.44cr1f 


The use of two adjacent quotation marks in the string 
constant results in a single quotation mark being output 
to the file. 


18.18 Appending to a File 


A file may be appended to by reading sequentially 
until the end-of-file is detected with IF END, and then 
Printing additional records. 


An example of appending to a file is shown below: 


TRUE% = -1 
IF END $ 3 THEN 200 REM PROCESS FILE NOT FOUND 
OPEN "MASTER" AS 3 BUFF FRE/128 - 1 RECS 128 
IF END $ 3 THEN 100 REM EOF ON PROCESS FILE 
WHILE TRUE% 

READ #.3; DUMMY 


WEND 

190 PRINT # 3; "THIS ADDED TO END" 
STOP 

209 PRINT "FILE NOT FOUND” 
STOP 
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| This process may be made more efficient Lf the tile 
was built with the RECL option specified. The SIZE 
predefined function is used to find the number of blocks 
in the file. The number of bytes in the file is 
calculated and then the number of records is determined. 
A random read is executed to this record and then the file 
is read until an end of file is detected. The following 
multiple line function will perform this: 


DEF FN.GET.TO.END$(FILE.NAMES, REC.SIZE%, FILE.NUM%) 
FN.GET.TO.END$ = FALSE 
FILE.SIZE% = SIZE(FILE.NAMES) 
IF FILE.SIZE% = 2 THEN \ REM FALSE IF NO FILE 

. RETURN. \ 
ELSE FN.GET.TO.END$ = TRUE% 
IF END i PILE.NUM3 THEN 149 
READ + FILE.NUMS,(FILE.SIZES * 1024)/REC.SIZES$ ; 
WHILE TRUES$ 
READ # FILE.NUM$; DUMMY 
WEND 
139 RETURN 
FEND 


Except for the case of adding to the end of a file, 
sequential reading and printing should not be intermixed. 


di. Li Re-Initializing the Disk System 


T£ it becomes necessary to change diskettes during 
execution of a CBASIC/86 program, CP/M-86 must be 
given an opportunity to re-initialize its internal 
diskette usage map to accommodate the diskette being 
inserted. I? this is not done, valid data may De 
overwritten. 


Diskettes should never be changed while any files are 
open. 13 a file has been written to and not closed and. 
then an INITIALIZE statement is executed, all the new data 
could be lost. This means that user programs must close 
all active files before executing an INITIALIZE statement. 


The INITIALIZE statement will re-initialize the disk 
usage maps for all disks inserted into logged-in drives. 
The general form of the INITIALIZE statement is: 

«stmt numbers) INITIALIZE 


The drive selected prior to executing an INITIALIZE 
statement remains selected ater the initialization is 


complete. 
LT 
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Insure that diskette changes are complete prior to 
executing the INITIALIZE statement. 


Examples: 
19 INITIALIZE 
INITIALIZE 


The INITIALIZE statement is equivalent to the CALL 
264 provided in version I of CBASIC. 


CBASIC/86 Version 1 Programming With Files 


11. 


11.1 


11422 


ELIAS 


PROGRAMMING WITH PILES 


Eile Facilities 


The facilities available to the CBASIC/86 user 
for accessing diskette files are extremely 
versatile, providing different file organizations and 
accessing methods. The emphasis of this chapter will 
be on the practical organization of files and the way in 
which they are accessed. 


File Organization 


The organization of a file describes the way 
it is represented on the diskette. All data written to 
files by CBASIC/86 is in character format using the ASCII 
code. The contents of both string and numeric variables 
are written as their representative ASCII characters, not 
as binary data. This permits the use of both resident 
and transient CP/M-86 commands with CBASIC/86 data files. 


Characters within CBASIC/86 data files are organized 
as a hierarchy. The lowest level of the hierarchy 1s 
called a field. Groups of Fields form records, and a 
file consists of one or more records. 


a field can contain either string Or aumeric data. À 
string field is surrounded by quotation marks. A numeric 
field is never enclosed by quotes, and it may contain any 
valid number as described in Chapter 3. Fields are 
separated from one another by either commas or a carriage 
return followed by a line feed. | | 


CBASIC/86 offers two file organizations: stream 
and fixed. These techniques are compatible to provide 
more flexibility for the programmer. 


Stream Organization 

When it is desired to store data sequentially, item by 
item, stream organization is used. Accessing is performed 
on a strict field by field basis. There is no restriction 


on the values or lengths of data that may be written; each 
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item of data takes only as much room as needed for data 
and delimiters. In other words there is no padding. 


A portion of a stream file containing only string 
fields may look like this: 


“first field","second field"crlf 
“thirda”™,"","126.89"erlf 
"Yxx123vyy" GL 


There are six fields in the above example. The fourth 
field is a null string. The following example shows a4 
file which contains both numeric and string data: 


"“Tohn", 798642764, "California"crl= 
"Tom Jones",1234.56,"lowa"crlf 


CBASIC/86 will read files in which strings are 
not enclosed in quotation marks. In this case, commas 


serve as the delimiters. Therefore, no commas may be 
included within the string, but a quotation mark 
embedded in the string would be treated as a character 
in the String. Strings written to files by 
CBASIC/86 will always be enclosed in quotes. An 


attempt to write a string that contains a quotation 
mark to a £ile will result in a runtime error. 


The PRINT USING statement does not insert delimiters 
between fields: each record will be terminated by a 
carriage return followed by a linefeed. 


11.4 Fixed Organization 


Fixed organization of files provides a logical 
structuring of the data that pertains to a specific 
application. | 


A file is defined to be of fixed organization if the 
record length option is used with the CREATE, OPEN; or 
FILE statements. Each individual item of data in fixed 
files is written as a single field delimited by a comma, 
as with stream organization, but with the added concept 
of a fixed size record. A record is always delimited by a 
carriage return and a linefeed. 


One record is written each time any PRINT statement 1s 
executed. Each record always contains the number of bytes 
specified by the RECL parameter regardless of the number 
or size of the component fields. This implies that, while 
a given field may be any length, the combined length of 


t 
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all fields in the record must be less than the record 
length by at least two bytes to allow room for the 
carriage return and linefeed. The last field in a record 
is not followed by a comma. 


For example: 


CREATE file.nameS RECL+25 AS file.no% 
aS="one" 

bS="record one" 

cSz" KE 

dSz" it 

eS="five" 

£5$="abcl23def” 

PRINT #file.not: aS,bS 

PRINT s$file.no$; cS,dS,eS$ 

PRINT #file.no%; £5 


produces the following file: 


"one","record one" Crile 
"a ge oie ea eee crlf 
"abcl23def" ubi Gries 


The record delimiters, carriage return and line feed 
(cri¿l, always occupy the last two bytes of the record and 
must be included in the specified record length. In the 
above example the linefeed is in the 25th position of each 
record. The space between the record delimiter and the 
last valid field is padded with blanks. 


A fixed file READ statement will always access a new 
record each time it is used. For example: 


IF END $fsile.no$ THEN 199 
WHILE TRUES 
READ $file.no$; fields 
PRINT fields 
WEND 
100 STOP 


Using the data from the previous example, the 
following will be printed console: 


one 
3 
abcl23def 
The ixed Organization of Ziles implies a 
wall-defined structure to the accessed data. The 


processing program can decide the meaning of a given 
field by its relative position in a record, rather than by 
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the value of the data itself. This provides savings in 
processing time and programming effort. | 


Files that are organized as fixed provide fast and 
easy access to the individual fields within each recore 


because all fields can be read in at one time. Fixed 
files may be reorganized by sorting on a key within each 


record. In addition, fixed files permit random access as 
described below. | 


Because CBASIC/86 reads each record on a field by 
field basis, it is recommended that each record on a 
given file contain the same number of fields. TE 
there is no information to fill a specific field in a 
record, either a zero or null string should be 
written into the field. This will allow, for example, the 
fifth field of a sales transaction file to represent the 
amount of the sale, even if some or all of the first four 
fields are not used in a particular transaction. 


Sometimes it is necessary to insure that a given field 
starts at the same relative position within a record. 
Usually there will be some fields of fixed length and some 
fields of variable length. Numeric fields will always 
fall into the latter category unless the range of numbers 
is restricted. String fields, however, can always be made 
to be of fixed length by padding them with blanks. 


For example: 
strings = leftS(stringS + " im» 


This will always produce a field that is 28 characters in 
length. By use of the STRS function, numbers can be 
converted to strings and then padded, thus allowing 
unrestricted numeric data to be of fixed length. | 


11.5 File Accessing Methods 


An access method describes the order in which data is 
read from or written to a file. CBASIC/86 supports 
two access methods: sequential and random. Either 
access method may be used on files that are organized as 
fixed. Only sequential may be used on a stream organized 
file. 
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11.6 Sequential Access 


In sequentially accessed files there is one field of 
concern, the "next" field. The program cannot backtrack 
or skip ahead, it must proceed one field at a time. 


A procedure to sequentially access a file and write it 
to the console is shown below. The file contains the 
following records: 


"first field","second field","“third”crif 
yi 3 x "nan : n xxxl23yyy"crlf 


The required statements are: 


OPEN file.nameS as file.no$ 

WHILE TRUES l | 
READ £file.no$; fields 
PRINT fields 

WEND 


The output on the console would be: 


first field 
second field 
entra 


5 
SERS Que > sli ipei 


The fourth line on the console is blank because the 
first field in the second record is a null string. 


While reading data from a file sequentially, the READ 
statement will consider a field completed when it 
encounters either a comma or a carriage return. Within 
the quotation: marks of a string field it is permissible 
to have any character except a quotation mark. 


When accessing a stream file, every field on the file 


will be read once and none will be skipped. It is 
possible to read in more than one field with a single read 
statement. 


For example: 


WHILE TRUE 
READ #file.no%; fielda$,fieldbs 
PRINT fieldaS,fieldbS 

WEND 
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- would print the following on the console {using the file 
from the previous example): 


first field second field 
third 
5 xxxl23yyy 


The same field organization is used when writing 4 
stream file. Each variable specified in the PRINT 
statement produces a single field in the file. When more 
than one variable is output in a single PRINT statement, 
the corresponding fields will be delimited by commas. 


The last field written by each PRINT statement 
will be delimited by a carriage return and linefeed 
instead of a comma. | 


For example: 


aSz"number one" 

bSza" two " 

cs" 3 "n 

d$=" "n 

es=" five "n 

fSs"variable six" 

PRINT #¢file.not; a$,DS 
PRINT $file.no$:; cS 

PRINT £file.no$; dS,eS,f£f5 


will put the following data in the file referenced by 
file.no$: 


"number one","two"crl£ 
SE dal orl é < 
ce H E RR “variable OE 


On files that are read or written using the stream 
organization, it does not matter which field delimiter is 
used. The crlf assumes significance when accessing files 
with fixed organization or when using the READ LINE 
statement described below. 


When using the CP/M-86 TYPE command to display a 
CBASIC/86 file, the carriage return and  linefeed 


result in the output from each separate PRINT statement 
appearing on a separate line. 


Die Random Access 


In random access the program is not limited to 
accessing the next record or field. Any record on the 
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file is as accessible as any other. Each record, or 
position where a record may be placed, is referenced by 
its relative record number. Each record may contain 
multiple fields. 


Randomly accessed files must use the fixed 
organization. CBASIC/86 locates each record on a 
randomly accessed file by taking the relative record 
number specified in the program, subtracting one 
From the number, and multiplying it Dy the length of a 
record. The result is the byte displacement of the 
record measured from the beginning of the fie, LE 


the records were of varying length, the displacement could 
not be calculated in this manner. 


Normally random access files will be created 
sequentially and then read or updated using random access. 
An example of this type of processing is an employee file 


for a small business. If the business has twenty 
employees, each would be assigned a number ranging from 1 
to 20. Each employee might have a record on file with 


fields containing their name, social security number, and 
rate of pay. The twenty records would be placed on the 
file in employee number order using the sequential access 
method with a fixed organization. Then, when an 
application program needed the data on employee number 12, 
a random read would be issued for relative record number 
12 and the proper data would be retrieved. The following 
program would access the file described above: 


TRUES = -1 

OPEN "employee.mst" RECL 58 AS 3 

IF END # 3 THEN 509.1 

WHILE TRUEZ rem loop until eof 

INPUT "enter employee number"; employ .no% 

READ # 3, employ.no?; nameS,ssnS$,pay 

PRINT USING "&'s pay rate is 25.55 name$,pay 
WEND | 
500.1 STOP 


To summarize, the READ statement used with a stream 
organized file will always access the next available field 
on the file regardless of the field length or which 


delimiter is used. In a fixed organization file, each 
READ statement will access the next record. A record is 
delimited by a carriage return and a linefeed. PRINT 


statements function ina similar manner. 
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11.8 Special Features 


The PRINT USING statement can be used to write data to 


£iles as well as to the console or printer. Its use and 
the format of its output is the same when writing to a 
file as it is when writing to the console. If the file is 


fixed, the single field written by each execution of the 
PRINT USING statement will be padded with blanks to the 
specified record length. The PRINT USING is well suited 
to text processing applications. 


The following examples demonstrate the PRINT 
USING statement with files: 


PRINT USING "&"; £TEXT.FILE.NO;LINE.OF.TEXTS 


PRINT USING "SPEED-222245.244 KPH"; £OUT.FILE,TIME: ^ 
VELOCITY(TIME) 


EDL Sz"&" 

ED2S=" $$,#22.%%" 

PRINT USING EDLS+ED2S+EDLS+ED2$S;#17,TRANS.NO; ^ 
"DRINCIPAL:",PRIN,"INTEREST:",INTR 


PRINT USING "&":$PRINTER.FILE;" “ REM BLANK LINE 
PRINT USING "/2345/":£WORK.FILE,REL.REC.NO; SORT.KZETYS 


INS="X" 
WHILE INS<>"" 
INPUT "ENTER DATA"; LINE INS 
PRINT USING "/...5....0....5....0../": $4; INS 
WEND 
CLOSE #TEMP.FILE 


The READ LINE statement allows a file to bbe accessed 
as though there was one field per record. Any commas or 
quotes will be read as part of the data. Only a carriage 
return and line feed will be treated as the delimiter. 
In effect there is no field structure ina file accessed 
with the READ LINE. For example, if the following file 
exists: 


"field one","two","3","","four"crlf 
dE EE AA R 


and the following statements are executed: 


READ $*file.no3; LINE string5 
PRINT strings 


(or 
@) 


~ 
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the data printed on the console would be: 
at field one”, MERO "3" M  EOUr qee 
This should be compared with the following statements: 


READ * file.no$; strings 
PRINT strings 


which would output: 


Field one 


All quotation marks and commas are considered part of the 
data, but the data does not include either the carriage 
return or the linefeed. 
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COMPILER, DIRECTIVES 
i241 Directive Format 
Directives are used to control the action of the 
compiler. Except for the END statement, all directives 
begin with a percent sign. The percent sign must be in 
column one. There may not be a line number preceding the 
percent sign. | 
If characters on the same line following the directive 
are not a part of the directive, they are ignored by the 
compiler. 
Lees Listing Control Directives 
$LIST 
3NOLIST 


$PAGE «constant» 


SEJECT 


The $LIST and $NOLIST directives allow listing only 
selected portions of a program while it is being compiled. 
The listing control directives may be placed anywhere in a 
source program and may be used as many times as desired. 


$LIST sets toggle B (Chapter 13) on while  $&NOLIST 
resets toggle B. In addition, output to the disk and 
printer is controlled by the $LIST and 3NOLIST 
directives. 


The $PAGE directive sets the length of a page output 
to the printer. The constant must be an unsigned integer. 
If it is negative or zero, an error occurs. Initially the 


page length is set at 64. 


As many $PAGE directives as desired may appear in a 
program. An error occurs if no constant is present. 


The EJECT directive positions the listings directed 
to the printer and the disk to the top of the next page. 
This is performed by outputting a formfeed character. 


O 


` 
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INCLUDE Directive 


$INCLUDE «filename» 


The $INCLUDE directive causes the compiler to compile 
the file, specified in the include statement, into the 
source immediately following tne $INCLUDE directive. The 
file name may contain a drive reference, and must be of 
type BAS. included statements will be indicated in 
listings with an equal sign (=) following the 
CBASIC/86 assigned statement number. Includes may be 
nested six deep, but they may not include themselves. 


For example: 
3INCLUDE b:readin 


will include the file READIN.BAS from drive B. 


Since the files incorporated with $INCLUDE directives 
are of type BAS they may be compiled separately. I+ is 
easier to debug large programs 1£ they are composed of 
small, individually tested, routines. 


The INCLUDE directive allows the programmer to build 
a library of common routines. This reduces programming 
time. System standards, such as 1/0 port assignments, can 
be put in included routines. If the programs are moved 
from one system to another, the include routine is 
changed, and the programs recompiled. 


Commonly used procedures, such as searches, validation 
routines, or input routines, are candidates for include 


files. If many programs in a system access the same file, 
all file access commands, such as READ, PRINT, or OPEN can 
be set up as separate include files. If the file 
definition needs to be changed, it can be made in one 
common file instead of several application programs. It 
is particularly valuable to code these routines as 


multiple line functions. 


t should be noted that a program segment may compile 
without errors when compiled separately, but when combined 
with other routines, compiler errors may occur. These 
errors should be predictable and will usually result from 
using the same line number in more than one module. 
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12.4 $CHAIN Directive 
$CHAIN «constant^, «constant», «constant», «constant» 


The $CHAIN directive is used to set the size of the 
main program's constant, code, data, and variable areas. 
This is required when chaining to insure that a program 
chained will not overwrite a portion of the data area 
being passed by the previous program. The compiler forces 
each of the four areas to be at least as large as the 
respective constant in the %CHAIN directive. 


Fach constant must be an unsigned positive integer. 
The first constant is the size of the area reserved Lor 
real constants. The second constant is the size of the 
code area. The third constant is the area used to store 
value from data statements. The final constant is the 
size of the area used to store variables. 


The constants may be expressed as hexadecimal numbers 
by appending the letter H to the number. If the area to 
be reserved is greater then 32,767 the constant must be 
wrizten as a hexadecimal number. 


The values to use in the 3$CHAIN directive are 
determined by compiling each of the programs to be chained 
together and using the largest value of each area. The 
compiler lists the size of each area at the end of a 
compilation. For instance, if three programs are to be 
chained and the CODE SIZE for the programs are 789, 1578, 
and 4917 bytes, the second constant in the 3CHAIN 
directive would be 4917. 


The tCHAIN directive is only required in the main or 


first program executed. For more information rafer to the 
discussion on the CHAIN statement. 


1203 END Statement 
[«stmt number>] END 
An END statement indicates the end of the source 
program. It is optional and, if present, it terminates 
reading of the source program. Any statements following 


the END statement are ignored. 


An END statement may not begin with a percent sign. 
Tt need not begin in column one, but it must be the first 


statement on the line. 
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A branch to an END statement is equivalent to 
executing a STOP statement. 


Examples: 
500 END 


END 
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OPERATIONAL CONSIDERATIONS 


System Requirements 


CBASIC/86 operates with any CP/M-86 based floppy disk 
system having at least 32x bytes a£ memory. In order to 
make..the best use of the power and flexibility OÉ 
CRASIC/86, a dual floppy disk system and at least 
48K of memory is recommended. I£ CS8ASIC/B86 is executed 
in a system smaller than 32K, 3 CP/M-86 LOAD ERROR may 


CBASIC/S6 Compile-Time Toggles 


Compiler toggles are a series of switches that can be 
set when compiling a progran. The toggles are set dy 
typing a dollar-sign ($) followed by the letter 
designations of the desired toggles, starting one space or 
more after the program name. Toggles may only be set for 
the compiler. 


Examples of the use of compiler toggles are: 
ZCBASS86 ACCOUNTS SBG-Z 
3:CBAS86 A: COMPARE SGEC 
CBAS36 PAYROLL $3 


CBAS86 B:VALIDATE SE 


Toggle B suppress#s the listing of the program on the 


console during compilation. 


Tf an error is detected, the error message is printed 
even if toggle B is set. Toggle B does not affect Listing 


to the printer (toggle F) or disk file (toggle G). 
Initially toggle B is off. 


Toggle C suppresses the generation of an INT t 
Since the first compilation of a Large program lg LI 

“so have errors, this toggle will provide an Las 
syntax check without the overhead of writing ¢ 


intermediate file 
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Toggle ¢ is initially off. 


Toggle D suppresses translation of lower case letters 
to upper case. For example, if toggle D is on, ‘AMOUNT | 
will not refer to the same variable as amoustc = 


If toggle D is set, all keywords must be capitalized. 
Initially toggle D is off. 


Toggle E is useful when 4jebugging orograms. TT 
-oggle is set, it will cause the rurtime program t 
accompany any error messages with the CBASIC/86 line 
number in which the error occurred. Toggle 
incraasa the size of the resultant INT fi te; anā 
therefore, should not be usec with debugged programs. 
Toggle E must be set in order for the TRACE option 
(section 13.4) to be in affect. 


M 
£ 

r^ - 
r7 
F^ 


Initially toggle E is off. 


Toggle F will cause the compiled output Listing to de 
-ed on the svstem list device, in addition to the 
-am console. This provides a hardcopy of the compiled 
ram. Even if the B toggle is set, a complete Listing 
provided if toggle F is set. Each page of the listing 
s a title printed and the pages at2 numbered. Form 
eds are used to advance to the top of a page. 


i 
S 


5 
she 
og 


rh Y Po Nn <u 
(0 p U mA A 


Initially toggle F is off. 


Toggle G will cause the compiled output listing to be 
written to a disk file. The file containing the compiled 
listing has the same name as the source file, and a type 
of LST. If toggles G ani B are specified, only errors 
will be output at the console but a disk file of the 
complete program will be produced. 


Normally the disk listing will be placed on the same 
Arive as the source file. The operator may select anotner 
drive by specifying the desired drive, enclosed in 
parenthesis, following the G toggle as shown below: 

CBASS6 B:TAX SG(A:) 


Initially toggle G is off. 
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13.3 


L3. 


Compiler Output 


CBASIZ/86 does not require thar each statement of 
a program be assigned a statement number. Tha 
only statements that must be given a statement number are 
those that have control passei to them by the GOTO, GOSUB, 
ON or IF statements. During compilation, CBASIC/S86 
assigns 4 Sequential number pie each Line 
indevendent of the statement number which may be used by 
tha orogrammer. The CBASIC/36 assigned line number is 
the one ferred to in error messages (1r toggle E 
is specif ) and when using the TRACE option. The lines 
number taxes one of three forms: 


Ta 
Led 


"ms Or n or n= 
where n is the number assigned. In most cases the colon 
(2) will follow the number. The equal sign (s) is printed 
when «the statement has been read in from a disk file with 


i 
a INCLUDE directive. The as acta (e) is used when tne 
Statement contains a user assigned statement number that 


is not referenced anywhere in the program. For 2xample: 

Li arint. start” 

2 names =" FRED" 

2^ ig gosub 43 rem orint name 

4: stop 

cE 

S:Sineclude orintrtn ran. Som WO DELAS 

72 49 rem-----rtn £9 Orint----------- 

3= orint names 

9= return 

19: END 

In the example, statement 3 has an asterisk because 
the ‘'1G' is not referenced at any place in the program. 
This can be useful during debugging or to help understand 
large programs written ia other dialects of BASIC. when 


all unreferanced line numbers are removed, it is easier to 
see the logic of the program. 


When an error is detected, the compiler prints a two 
letter error code, the line number the error occurred 
in and the position of the error relative to the beginning 
of the source line. The position assumes tab characters 
have been expanded. 


4 TRACE 


CRUN36 «filename» STRACE F<lnilo 0£,«1n2»5;1!; 


ie 
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Tha TRACE option i$ used for a EE toe Ste jebugging: L 

gril: Prins the line number of each statement as 14 X8 
executed. The Output is direzted to the console even 

when 2 PRINTER statement is in effect. The line 
number printed is the number assigned toO cacn statement 


oy the compiler: consider the Following program: 
AMOUNT = 15.12 
TIME = 45.9 
SRINT Tims * AMOUNT 
72 ne aDove program was compilel usiM3 zhe following 
command: 
cC3AS86 TEST SZ 
and then executed with rhe trace option: 
CRUN36 TEST TRACE 1,3 
-he followings output would 2 produces: 
RT LINE 9091 
AT LINE 0032 
aT LINE 9273 
545.85 
The TRACE option fynetions only iz the toggle g nas 
been set on during compilation of tne program. 
mye first number («inl») iS used to specify “ne line 
number whet ene trace is to begin. The second number 
(<in2>) specifies where tne trace is to stop: tf no line 
numbers are included in the command, the entire program 15 
-raced; if only the £irst line number is present, tracing 
starts at this line number and continues for ail line 
numbers greater than the first number «lnl?. 
L3. Cross Reference Lister 
In addition tO CBASB6.CMD and CRUNB6.CMD, a 
utility program, YREFS6-CMD, is supplied with 
CBASIC/86. XREF86 procuces a disk file which contains an 
alphabetized list of all identifiers used in & 


CBASIC/86 program: 
parameter, OT 


places all 
variables 


The 
global) 
each line in which that 

functions 
assonlat 


usage of the identifier (function, 
is provided, as well as 4 List of 
identifier is used. The listing 
with parameters and local 
ead with 8 function immediately 


92 
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following tne Sans e LOT The functions are in 
alpnabetical order. The output is normaily diracted 
to the same disk as the source file. The file 
ereatad has the same name as the CBASIC/36 source file 


and is 2f type XREFB86. The standarzi output is 132 
columns wide. The following command is used to invoke 
XREFS6: 


YREFS6 «filename» [disk ref] [$<toggles> } f'<eieler'] 


The filename must be a CBASIC/86 source program with 
a filetype of BAS. The disk reference is optional 
and specifies the disx on which to place the cross 
roference fila. tf the disk reference is not present, 
the listing is placed on the same drive as the 
source. It is specified as A:, 8: etc. Tor example: 


XREF85 PAYROLL A: 
will pu 


q 
drive A. 
and she disk 


tha cross reference Listing ‘for PAYROLL.BAS on 
At least one blank must separate the filename 
reference. 


Toggles may 5e used to alter the standard output of 
XREF86. At least one blank must separate tne ASL ac 
sign from the portion of tha command line to the Left. 
The toggles follow the dollar sign. They may oe either 
lower or upper case letters. Ai, B, C, D, E, F, and G are 
valid toggles. Any other characters following the dollar 
sign, and before tne title field or end of tne command 
line, are ignored. 


The A toggle causes a listing to be output to ene 0 
device as well as to a disk file. 
The B toggle suppresses output cO the đisk. LE univ 


the B toggle is specified, no output is produced. 


The C toggle suppresses the output to tne disk and 
| ies output to the list device. The C toggle has the 
ame effect as specifying both the A and B soggles. 


The D toggle causes the output to be produced 2ighty 
columns wide instead of using 132 columns. 


The E toggle produces output with only the identifiers 
and their usage. No line numbers are printed. The Z 
toggle might be used to help document a program. Tne 


programmer would wrize the use of each identifier on ‘ne 
listing provided oy XREF86. Also the fiie created oy 
YREF36 could be edited and made into a Large remark with 
comments pertaining to eacn variable name. By including 


N 
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this file with the source program, additional 
documentation would be provided. 


The F toggle allows the user to change the default 
page length of 69 lines per page. The desired number of 
lines per page is enclosed in parenthesis and must follow 
the F., There may be no imbedded blanks. Formzsed 
characters are used to position the printer and are also 
placed in Jisk files. : 


The G toggle suppresses printing of the heading lines 
and suppresses all formfeeds. This toggle might be used 
when building a disk file which will then be printed by a 
user utility. 


The H toggle suppresses translation of lower case 
letters to upper case. This allows using XREFS36 
with programs compiled with compiler toggle D. 

The following command: 

XREF26 ACCTSREC B: SEAF(4@) 
creates on drive B and a listing on the list 


a 
device of all the identifiers and their usage. No line 
numbers would be provided. Pages are limited to 43 lines. 


a 
= 
l 


The optional title field must be the last field in the 
command line. All characters following the SLES. 
apostrophe on the command line up to the second 
apostrophe, or until the end of the command line, bdecome 
the title. The title is printed on the heading line of 
each page of output. The title is truncated to thirty 
characters if the listing is 132 columns wide and to 


twenty characters if the D toggle is specified. The 
following command demonstrates the use of the title 
aie 

field: 


XREFS6 NAMES B: SAD 'version 2: I AUG 78 
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APPENDIX A 
Compiler Errors 


NO SOURCE FILE:  «£ilename».BAS 
The compiler could not locate a source file on the 
specified disk. This file was used in either the CBAS86 
command or a $INCLUDE directive. 
OUT OF DISK SPACE 


The compiler has run out of disk space while 
attempting to write either the INT file or the LST file. 


OUT OF DIRECTORY SPACE 
The compiler has run out of directory entries while 
attempting to create or extend either the INT file or the 
LST file. 
PROGRAM CONTAINS n UNMATCHED FOR STATEMENT(S) 


There are n FOR statements for which a NEXT could not 
be found. 


PROGRAM CONTAINS n UNMATCHED WEILE STATEMENT (S) 


There are n WHILE statements for which a WEND could 
not be found. | : 


PROGRAM CONTAINS 1 UNMATCHED DEF STATEMENT 
A multiple line function was not terminated with 2 
FEND statement. This may cause other errors in the 
program. - 
WARNING INVALID CHARACTER IGNORED 
Tne previous line contained an invalid character. The 


character is ignored by the compiler. A question mark is 
printed in its place. 


a) 
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INCLUDE NESTING TOO DEEP NEAR LINE n 


An include statement near line n in the source program 
exceeds the maximum level of nesting of include files. 


Other errors detected during compilation cause a 2 letter 
error code to be printed with the line number and position of 
the error. The error message normally follows the line in 
which the error occurred. 


The possible error codes are: 


BF 
A branch into a multiple line function from outside 
the function was attempted. 


BN 
An invalid numeric constant was encountered. 


An invalid file name was detected in a $%INCLUDE 
directive. The file name may not contain a ?,*, or 
(except as part of a disk reference where a colon may De 
the second character of the name). 


A COMMON statement, which was not the first statement 
in a program, was detected. Only a compiler directive 
such as $CHAIN, a REMARK statement, or blank lines may 
proceed a COMMON statement. 


CV 
An improper definition of a subscripted variable in a 
common statement. Possibly the subscript count is not à 
constant or there is more than one constant. Only one 
constant may appear in parenthesis. It specifies the 
number of subscripts in the array being defined. 


DL 
The same line number was used on two different lines. 
Other compiler errors may cause a DL error message to be 
printed even if duplicate line numbers do not exist. 
rrors such as not defining functions prior to use and, in 
some cases, if the DIM statement does not proceed all 
references to an array, a DL error will result. 


DP 
A variable dimensioned by a DIM statement Was 
previously defined. It either appears in another DIM 
Statement or was used as a simple variable. 


~ 
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ts) 
id 


rr 
zZ 


i3 
Ld 


b 
3 


PA 


A function name appears on the left side of an 
assignment statement but is not within that function. In 
other words, the only function name that may appear to the 
left of an equal sign is the name of the function 
currently being compiled. 


The same function name is used in a second DEF 
statement. 


A mixed mode expression exists in a FOR statement 
which the compiler can not correct. Probably the 
expression following the TO is of a different type than 
the index. 


An expression which is not an unsubscripted numeric 
variable is being used as a FOR loop index. 


A function reference contains an incorrect number of 
parameters. 


A function reference parameter type does not match the 
parameter type used in the function's DEF statement. 


A function has been referenced before it has been 
defined, or the function was never defined. 


An expression used immediately following an LE 
evaluates to type string. Only type numeric is 
permitted. 


A variable used in a FILE statement is of type numeric 
where type string is required. 


An input prompt string was not surrounded by quotes. 


A subscripted variable was referenced before it was 
dimensioned. 


E a 
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IT 


MF 


MS 


00 


An invalid compiler directive was encountered. A 
parameter required by the directive may be out of range or 
missing. Or the directive may be misspelled. 


A variable defined as an array ina DEF statement is 
used without subscripts. 


The same variable is defined more than once in a 
COMMON statement. Each variable may only appear in one 
COMMON statement. 


An expression evaluates to type string when an 
expression of type numeric is required. 


An invalid mixed mode has been detected. Most likely 
variables of type string and type numeric are combined in 
the same expression. 


A numeric expression was used where a string 
expression is required. 


A FEND statement was encountered without a 
corresponding DEF statement. This error could be the 
result of an improper DEF statement. 


A variable referenced by a NEXT statement does not 
match the variable referenced by the associated FOR 


statement. 


A NEXT statement occurs without an associated FOR 
statement. 


A branch out of a multiple line function from inside 
the function was attempted. 


More than 40 ON statements were used in the program. 
CBASIC/86 has an arbitrary limit of 48 ON statements in a 
single program. Notify Compiler Systems if this limit 
causes problems. 


~~ 
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SD 


SE 


ui 
irj 


SO 


Us 


| A DEF statement appeared within a multiple iine 
function. Functions may not be nested. 


A multiple line function may not call itself. 


A second SAVEMEM statement was encountered. A program 
may have only one SAVEMEM statement. 


The source line contained a syntax error. This means 
that a statement is not properly formed or a Keyword is 
misspelled. 


A SAVEMEM statement uses an expression of type numeric 
to specify the £ile to be loaded. The expression must be 
a string. Possibly the quotation marks were left off a 
string constant. 


A subscripted variable contains an incorrect number of 
subscripts, or a variable in a DIM statement has been used 
previously with a different number of dimensions. 


The statement is too complex to compile. It should be 
simplified. Consider making the expression into two or 
more expressions. Please send Compiler Systems a copy of 


the source statement. 


Symbol table overflow has occurred. This means that 
the program is. too large for the system being used. The 
program must be simplified or the amount of available 
memory increased. Smaller variable names reduces the 
amount of symbol table space used. Compiler Systems is 
interested in being informed if programs generate this 


ceapa 


A line number that does not exist has been 
referenced. 


A string has been terminated by a carriage return 
rather than by quotes. 


"s 
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VO 


WE 


Variable names are too long for one statement. This 
should not normally occur! If it does, please send a copy 
of the source statement to Compiler Systems. Reducing the 
length of variable names and reducing the complexity of 
the expression within the statement may eliminate the 
error. 


The expression immediately following a WHILE statement 
is not numeric. 


WHILE statements are nested to a depth greater than 
l2. CBASIC/86 has en niall limit of 12 for nesting 
of WHILE statements. 


A WEND statement occurred without an associated WHILE 
statement. 
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Runtime Errors, 
NO id FILE: <file name> 


os A EE ETRE was not. specified with the CRUNS& command, . _ 
-or nc file of type INT with the specified file name was 
p found om the disk c RM > 


- “IMPROPER INPUT — REENTER = - TER Ei 


This message occurs: whem the fields entered . from the 
console do not match the fields specified im the INPUT 
statement. This can occur when field types do not match 
-ar the number of fields entered is different from the 
number- of fields specified. Following this message all 
values required by the input statement must be reentered. 


Other errors. detected cause a 2 letter code to be printed. 
If the code is preceded by the word WARNING, execution 
continues. I£ the code is preceded by the word ERROR, 
execution terminates. LE an error occurs with a code 
consisting of an asterisk followed by a letter such as '*R' 
the runtime package has failed. Please notify Compiler 
Systems of the circumstance under which the error occurred. 


The possible codes are listed below: 


Warming Codes S 


DZ 
A number was divided by zero. The result is set to 
2 the largest valid CBASIC/86 number. 
FL 
E A field length greater than 255 bytes was encountered 
during a READ LINE. The first 255 characters of the record 
are retained; the other characters are ignored. 
= Eus 


The argument given in the LOG function was zero or 
negative. The value of the argument is returned. 


P nd 
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SQ 


A negative number was specified before the raise to a 
power operator (^). The absolute value of the parameter is 
used in the calculation. Wnen using real variables a 
positive number may be raised to a negative power, but a 
negative number may not be raised to a power. 


A calculation using real variables produced an 
overflow. The result is set to the largest valid 
CBASIC/86 real number. Overflow is not detected with 
integer arithmetic. 


A negative number was specified in the SQR function. 
The absolute value is used. 


Error Codes 


AC 


BN 


ce 


CD 


CE 


Cr 


The string argument in an ASC function evaluated to 4 
null string. 


An attempt was made to access an array element before 
the array DIM statement had been executed. 


The value following the BUFF option in an OPZN or 
CREATE statement is less than l or greater then 52. 


A chained program's code area is larger than the main 
program's code area. Use a CHAIN directive in the main 
program to adjust the size of the code area. 


A chained program's data area is larger than the main 
program's data area. Use a $CHAIN directive in the main 
program to adjust the size of the data area. 


The file being closed could not be found in the 
directory. This: could occur if the file name had been 
changed with the RENAME function. 


A chained program's constant area is larger than the 
main program's constant area. Use a $CHAIN directive in 
the main program to adjust the size of the constant area. 
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EP 


cs 


cy 


DF 


DU 


DW 


tj 
Frj 


weet 
t ae 


A chained program's. variable storage area is larger 
than the main program's variable storage area. Use a 
3CHAIN directive in the main program to adjust the size of 
the variable storage area. 


A chained program reserved a different amount of 
memory with a SAVEMEM statement than the main program. 


A CLOSE statement specified a file number that was not 
active. P 


An OPEN or CREATE was specified with a file number 
that was already active. 


A DELETE statement specified a file number that was 
not active. 


An error occurred while writing to 4 file for which no 
TF END Statement has been executed. This may occur when 
either the directory or the disk is full. 


A read past the end of file occurred on a file for 
which no IF END statement had been executed. 


An attempt was made to write a record of length 
greater than the maximum record size specified in tne 
OPEN, CREATE or FILE statement for this file number. 


An attempt was made to rename a file to an existing 
file name. 


An attempt was made to read or write to a file ‘chat 
was not active. 


A file name was invalid. Most likely an  invalic 
character was found in the file name. A colon may never 
appear imbedded in the name proper. Question marks and 
asterisks may only appear in ambiguous file names. This 
error will also result if the file name was a nuli 
string. 
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IR 


IV 


IX 


ME 


MP 


NC 


NF 


NM 


NS 


OD 


A record number of zero was specified. 


An attempt was made to execute an INT file created by 
a version 1 compiler. To use CRUN86 a program must be 
recompiled using the version 2 compiler, CBAS86. This 
error will also result from attempting to execute an INT 
file which is empty. 


A FEND statement was encountered prior to executing a 
RETURN statement. All multiple line functions must exit 
with a RETURN statement. 


An error occurred while creating or extending a file 
because the disk directory was full. 


The third parameter in a MATCH function was zero or 
negative. 


Source program contains a real constant outside the 
range of CBASIC/86 real numbers. 


The file number specified was less than 1 or greater 
than 28, or a file statement was executed when 29 files 
were already active. 


There was insufficient memory to load the program. 


An attempt was made to print a number with a PRINT 
USING statement but there was not a numeric data field in 
the USING string. 


An attempt was made to print a string with a PRINT 
USING statement but there was not a string field in the 
USING string. 


A READ statement was executed but there are no DATA 
statements in the program, or all data items in all DATA 
statements have already been read. 


CBASIC/86 Version 1. Runtime Error Messages 


OE 


OI 


OM 


RB 


RG 


RU 


SB 


SL 


An attempt was made to OPEN a file that did not exist 
and for which no IF END statement had been executed prior 
to executing the OPEN statement. 


The expression specified in an ON...GOSUB or an 
ON...GOTO statement evaluated to a number less than 1 or 
greater than the number of line numbers contained in the 
statement. 


The program ran out of memory during execution. Space 
may be conserved by closing files when they are no longer 
needed and by setting strings to a null string when they 


are no longer required. Also by not using DATA 
statements, but rather reading the constant information 
from a file, space will be saved. Large arrays may be 


dimensioned with smaller subscripts when the array 1s no 
longer required. 


An attempt was made to PRINT a string containing a 
quotation mark to a file. Quotation marks can only 5e 
written to files when using the PRINT USING option of the 
PRINT statement. 


Random access was attempted to a file activated with 
the BUFF option specifying more than one buffer. 


An attempt was made to read past the end of a record 
in à fixéd file. 


A RETURN occurred for which there was no GOSUB. 


A random read or print was attempted to other than a 
fixed file. 


An array subscript was used which exceeded the 
boundaries for which the array was defined. 


A concatenation operation resulted in a string of more 
than 255 bytes. 


I 


Abe ^ 
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SO 


SS 


WR 


Runtime Error Me.sages 


The file specified in a SAVEMEM statement could not be 
located on the referenced disk. The expression specifying 
the file name must include the type if one is present. A 
type of CMD is not forced. 


The second parameter of a MIDS function was zero or 
negative, or the last parameter of a LEFTS, RIGHTS, or 
MIDS was negative. 


A TAB statement contained a parameter less than 1 or 
greater than the current line width. 


A PRINT USING statement was executed with a null edit 
string or an escape char (\) was the last character in an 
edit string. 


An attempt was made to write to a file after it had 
been read, but before it had been read to the end of the 
file. 
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TAB FUNCTION 
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THEN STATEMENT . 
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TOGGLE (XREF86) 
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UCASES(AS) FUNCTION .. 
UNSUBSCRIPTED VARIABLE 
USER DEFINED FUNCTIONS .... 
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VAL(AS) FUNCTION ... 
VARIABLE LENGTH STRINGS 
VARIABLES uscar 
VARPTR FUNCTION . 
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WEND STATEMENT . 
WHILE STATEMENT .......... 
WIDTH CLAUSE ..... 
WIDTH STATEMENT ...ooooooo».»o. 
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3CHAIN DIRECTIVE ..... 
ZEJECT DIRECTIVE .......... 
SINCLUDE: DIRECTIVE arx» x5» 
$LLlol DIRECTIVE ie- 
SNOLIST DIRECTIVE 
3PAGE DIRECTIVE 
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